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10 RE« w* SRIELAUTONftT-HAUPTPROGRAMN 

40 m * TITELBILD 

50 ? "}“:? *> B :ERftPHICS 4ÖSCÜLDR 1 

60 PßKE 82.ÖSRQKE 71Ö,Q:PQKE 712,52:PDKE 752,liPRINT 

70 POSITION 0,205’ " SPIELAUTOMAT 

80 POSITION 0,21!? - IC) 1982“ 

90 POSITION 0,22:? ■ Von Ulrich Hinhasen* 

100 POSITION 0,23:’ 1 KaemereruTer 10, 2000 Haaburi 60 

110 FÜR )1=! TO 319 STEP 25PLGT X,159:DRAHTS 160,60:NEXT X 

120 FÜR T=1 TO 1000s HEXT T 

190 REM * SPIELERLAEUTERUNG 

200 ? "3":? B :GRAPHICS 0 

210 POKE 82,öiP0KE 752,1 

220 SETCOLOR 2,10,2:SETCÜL0R 4,10,2 

230 POSITION 0,0:? ■ ERLAEUTERUNS DES SPIELABLftUFES 


(( 


240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 


‘BEI DIESEN SPIEL SEHEN SIE EINEN SPIEL- AUTDHATEN HIT SELBSTTÄTIGER STATISTIK* 



:? "ES TAUCHEN JEWEILS VIER SENINNSYHBDLE 
:? "SIE BEGINNEN NIT EINEN SPIELBUDEET VON 
“DAS SPIEL SELBST LAEUFT AB HIE FOLGT!" 
"1.) ABBUCHUNG DES EINSATZES’ 

’2„! SPIELZAEHLER-ANZEISE MINUS 1 SPIEL* 
"3.) NISCHEN DER GEHINNSYHBOLE (TON!)" 


VOM SECHS NDEGLICHEN SYMBOLEN AUF" 
100,-0«. JEDES SPIEL KOSTET 1,-DH“ 


\ ’ / 


? ’4.J BERUECKSICHTI6UN5 DES GEWINNES“ 

? ’5.) NEUES SPIEL, B,H. EINSATZABBUCHUNE" 

? :? "AUF DEM BILDSCHIRM ERHALTEN SIE DAHN 
? !? ’FUER DIE GEWINNLISTE START DRUECKEN* 
350 IF PEEK(53279)< >i TUEN 150 
360 ? 

400 SETCOLGR 1 ,3,2:SETCOLOR 4,3,2 

410 POSITION 0,0:? “ GEWINNLIST 


! 


NOCH WEITERE STATISTISCHE INFORMATIONEN“ 


E 


I 


420 

430 

440 

450 

460 

47t 

430 

490 

500 

510 

520 


? “Sie haben Tobende SeeinnBoeslichkeiteft’ 

? :? "SPIELZAEHLER=SZ=5QQÜ GEWINN 2 10000,-DN* 
’ !? “SYMBOL ü)=St2)=S( 3) =3(4) SEN=1- 100,-DM* 
? n SÜ)=S<4) UND SZ=IOOO GEN=MOOO,~DM* 
7 ”S(1)=S(4) UND 32=100 GEH=1- 100,-DM" 
? ’S!1)=S(4) UND SZ=10 8EN=T- 
’ ,: S!1!=S(4) GEWINN 2 

? “SPIELZAEHLER-löOÖ GEWINN 2 

’ , SPIELZAEHLER=10ö GEWINN 2 

? H SPIELZAEHLEfi=10 GEWINN 2 


10,-DH" 
2,-DM" 
100,-DH* 
10,-DM* 


“FUER SPIELBEGINN BITTE START DRUECKEN 



530 IF PEEKs53279K>6 Ttßl 530 
540 ’ *';":? 




550 GRAPHICS ÖipßKE 752,1 

560 POSITION 0,8:? "ßftS SPIEL LfiEUFT VON NUN AH AUTOMATISCH" 
570 POSITION 0,10:? "OHNE MS SIE ETWAS EINZUTIPPEH BRAUCHEN’ 
500 POSITION 0,14:? "LASSEN SIE DEN CöHPUTER ALSO RUHIB AUCH" 
59Ö POSITION 0,16:? m ETHAS LEISTEN UND SEHEN SIE NUR ZU" 
600 PDR T=1 TG 2000:NEXT T:? 

IOOO REN *m VARIABLENFESTLE6UNB 

1010 DIN 5(6):REH * SYMBOLE 

1020 B=99:REH * BUDBET FUER DEN SPIELEINSATZ 

1030 N=0:REH * SPIELE 

1040 BtM):REH * BENIMHNMSCfEINLICMSIT 

1050 r=0:ft£f} * GEWINM-HGEHE 

1060 6A a 0:REH * 6ENINN-ANZAHL 

1070 GS=0:R£H * BEBINN-SUHHE 

1080 H6S=9sREH * MITTLERE 8EMMNSUNHE 

1090 U=OsftEH LANGFRISTIG STATISTISCHE UEBERLEBENS-CHANCE 

1100 PßKE 710,0:POKE 752,UP0äCE 77,0 

1200 POSITION 0,0:? “ SPIELAUTOHAT 

1300 RER *** PH-8RAPHIC 

1400 POKE 559,46 

1500 PfiB^PEEK(106)-8:PAKE 34279,PMS 

1600 POKE 53277,3:POSE 623,1 

1800 GOTO 5000 

2000 REH *•* SYHBGLAUSNAHL 

2100 FÜR PH=1 TO 4:S(PH)=INT(RI«K0)*6H1 

2200 SüSUB 8000 

2300 FOR IT!=10G TO 240 STEP 35 
2400 PAKE 53764,ITT:POKE 53766,ITT 
2500 HEXT ITTüfEXT P« 

2600 FÜR K=ö TO 3:SOUND K,0,0,Ö:N£XT K 
3000 REH **« SEWINN-BEDIN6UN0EN 
3010 IF N=5ÖÜ0 MN 4010 

3020 IF SÜ)=S(2) AND S(2I=S(3) AND S(3)=Si4) THEN 4020 
3025 XIW1Ö00 

3030 IF SÜ)=S(4) AND N-IOÖÖ^IHT<KN) MN 4030 
3035 KIHI/1Ü0 

3040 IF 5Ü)=SI4) ASO N=iöö*M(KN) TUEN 4040 
3045 IQMI/ll} 

3050 IF S(1)=S(4) AND fi=lö*INT!KN! THEN 4050 
3060 IF S(ü“Si4) THEN 4060 
3065 XfHI/lööÖ 

3070 IF H=1OQ0*1M7!KHI MB 4070 
3075 KN=N/iQO 

3080 IF N=100*IMT(Kii) THEN 4080 
3085 KN=EJ/iö 

3090 IF N=10*ItlT(KN) MN 4090 
3100 FOR T=1 TO 300:HEXT y 
3200 8=8-1 
3300 SOTG 500C 

4000 REH SEIMMHIÖEHBI UND 6EWISW ANZEIGE 
4010 Y=10000:60T0 4200 
4020 Y=INT(SND(0)*100)+l:6ÖTO 4200 
4030 Y=INT IRND1ö)*IOOO)+1:GOTO 4200 
4040 Y=INT(RNS(0>*100)+l5BOTD 4200 
4050 Y=INT!HN!HÖM0M:SOTQ 4200 
4060 Y=2= GOTO 4200 
4070 Y=löö:ßüTQ 4200 
4080 Y=lö:SÖTü 4200 
4090 Y=1 




4200 B=B+Y:GA-BA*1i3S=GS+Y 
4210 HGS=INTUÖQ*(6S/GA>+Ö.5}/100 
4220 GN=INT(1000Ö*<BA/NH-Ü,5)/10G 
4230 U=INT{10# dfBS*6Hi +ö. 5) /10 
4240 POSITION 0,2s? "SPIEL-BUDGET » 

4250 POSITION 0,4:? »SPIELE = "iN 

4310 POSITION 0,6:? “SENINN-HARRSCHEIHL1CHKEIT = »SGBf X ' 

4320 POSITION 0,15:? "GEHINN FUER SPIEL = "iYS%-Df! 

4330 POSITION 0,17:? «ANZAHL KR BESINNE * ":GA 

4340 POSITION 0,19:? »8EHINN-SÜEWE = "SBSSVDIT 

4350 POSITION 0,21:? "SURCHSCHN. SEWINM-BUHHE = "{MGSJVDH " 
436Ö POSITION 0,23:? “LANGR. UEBERLEBEN5CHANCE* “MIS* X * 

4400 FOR Zs! TO 2 

MIO FOR T=1 TO 15:S0l)HD 0,91,10,10:101 T 
4420 FÜR T«I TO 5:SOUND Ü,0,M:töEXT T 
4430 FOR T=1 TO 15:SQUND 0,91,10,10:NEXT T 
4440 F0R T«1 Tü 5:SOUND 0,0,0,0:fOT T 
4450 FOR T=1 TO 15:S0UND Ü,72,10,1Ö:NEXT T 
4460 FÖR T=1 TO 5:SOUND 0,0,0,Ö:NEXT T 
4470 FOR T=1 TO 20:SOUND 0,60,10,15:HEXT T 
4480 FOR T«1 TO 10Ö:SQUNB M*Q.OiNEXT T 
4490 BEXT Z:fßR T=1 Tö 2GÖ:NEXT T 
4500 B=B-1 

5000 REH m SPIELANZEIGE 
5010 POKE 77,0 

5020 N=Ntl:SH=I!iTÜOÖÖO’MSA/N}+Ö.5W10O 

5025 IF 8ft=0 THEN 5100 

5030 HGS>mT(100*(SS/fiA}«0.5)/100 

5040 U=INTüO*fHS5=»SH}+0.5>/!Ö 

5100 POSITION 0,2:? »SPIEL-BUDGET = "JE;",-DR 

5120 POSITION 0,4:? »SPIELE = MH“ 

5130 POSITION 0,6:? »fiEWIllN-HAHRSCHEINLICHKEIT = "fSNS" X B 

5140 POSITION 0,23:? "LANSFR, UEBERLE8EN5CHANCE" »SUi” X ' 

5400 IF 8=0 THEN 6000 

550C GOTO 7000 

6000 REH *** VERLÖREN 

6100 ? "}":FCR T=t TO 25ÜOT T 

6110 ? "}":FOR T*1 TO 25:NEXT T 

6120 ? "}":FÖR T=1 TD 50:NEXT T 

6190 POSITION 0,0:? " SPIELENDE! 

6200 POSITION 0,2:? "SIE HABEN IHR GANZES GELD VERSPIELT !!!" 
6210 POSITION 0,4:? "SIE HAGES 1HBGEBAKT VERLOREN“ 

6220 POSITION 0,6:? "FIER EIN HEUES SPIEL START DRUECKEN ■ 


6230 POSITION 0,13:? 1 

6300 IF PEEK(53279)06 THEN 6300 

6400 ? a J" 

6500 6Ö5UB 9000 
6600 GOTO 1020 

7000 REH *** PSI SEHEN DER SYMBOLE 
7010 REN * PUSCHSERAEUSCH 
7020 SOUND 0,0,0,0 
7030 POKE 53768,3 

7040 POKE 53761,230:POKE 53763,230 
7050 POKE 53765,232iPOKE 53767,232 
7060 POKE 53760,255 
7070 FOR TI-254 TO 0 STEP -2 
7080 POKE 53762,THHEJIT TI 
7090 POKE 53764,16:P0KE 53766,16 
7100 GOSUB 9000 
7500 GOTO 2000 



t 



8000 REH m SYMBOL-DARSTELLUNG 
8010 POKE 53247+P)t,lö+Pft$40 
BOZO POKE 33255+™, 3 
0030 J=Pf)0+25i+512+ U PR“1 > * 128) 

8100 H=S{Pft)+05OO 
8110 RESTÜRE » 

B120 READ FARBE 
8130 PGKE 703+PH,FAR8£ 

8140 FÜR P=50 TO 80 

B150 READ SYH80L 

B160 IF 5YK8ÜL=999 THE« RETURN 

8170 POKE J+P.SYHBOL 

8180 NEXT P 

B50Ö REH m SYI1B0L-DATA . 

B501 DATA 246,36,36,36,60,60,126,126,126,126,231,231,231,165,165,165,165,165,165,231,231,255,999 

8502 DATA 54,129,129,129,90,*0,90,36,36,34,126,124,126,36,36,34,90,90,90,129,129,129,998 

8503 DATA 70,60,60,60,36,36,36,231,231,231,129,129,129,231,231,231,36,36,36,60,60,60,999 

8504 DATA 118,4,4,4,4,4,4,36,36,36,52,52,52,62,62,190,255,255,255,255,254,126,999 

3505 DATA 199,66,66,66,165,165,165,189,189,189,165,165,165,255,255,255,165,165,165,165,165,165,999 

8506 DATA 234.24,24,24,36,36,36,36,36,36,219,219,219,36,36,36,36,36,36,24,24,24,999 

9000 REH *** LOESCHEN SER SYMBOLE 

9010 PÖKE 623,4 

9020 FDR L=Q TD 384 STEP 12B 

9025 IF 8=99 THEN 9035 

9030 FOR P=50 TD SO:GOTO 9040 

9035 FOR M TO 80 

9040 POKE 1PEEX ü 06)-8)*256+512+L+P,0 

9050 HEXT P 

9060 «EXT L 

9070 POKE 623,1 

9080 IF 8=0 THEN RETURN 

9200 REN * HISCHBERAEUSCH 

9210 FOR IT-16 TO 100 



9220 PßKE 53764,ITiPDKE 53766,IT:NEXT IT 
9300 RETURN 
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IO REM aam PN-Bewegung in BASIC **a*a 
20 RER *#* Variablen **♦ 

30 PHX=102fREH ** X-Pusition des Players « 

40 5Dä4CTL=559i REH ** Schattenres. des DHft-Contrul ** 

50 P(tBASE=54279!REH ** Basisadresse der PR-ßrafik ## 

60 fiAKTGP=lÖ6:RE8 « Adresse des leisere fear hoechste RAR Adr. »» 

7ö HPDSPÖ=53248!RER ** Res. der X-Adresse des Players ** 

80 PC£lRÖ-7£l4:fO! *a Res. des Farbwertes tob Plarer #* 

90 ßRftC7L=53277:REH a* Adresse des Grafik-Contral-Resisters ** 

100 RER *** Plarer Initialisieruns *** 

110 GRAPHICS OsREH ** Loesche Bildschira ** 

120 fl=PESf(RftKTGP)-16:REK aa Errechne Adr. unter den Bildspeicher *a 
130 PÜKE PHBfiSE,A:REH aa lese den Eiert als Adresse der PH-Srafik fest ** 

HO PRY=25iaA<-1024:RER ** Bestien* die genaue Adr. des Speichers der PH-firafik aa 
150 PtiKE SDNCTL,62sREH a* Ertaube PR-BRA in einzeiliger Auflassung na 
160 POKE 6RACTL3 

170 POKE HPGSPC,PHXsREH aa Bestimm die genaue Position des Players 0 *a 
180 RER ** Loesche den Bereich von Player 0 ** 

190 FÜR I=PRY TO PHY+255 
200 POKE 1,0 
210 «EXT l 

220 POKE PCOLIlö,i40ißER 8esti»ne die Farbe des Players a* 

230 PRY=PRY*76iRE!1 aa Setze PHY auf dis Anfanssadresse des Ssuhols s* 

240 RER *a Zeichne Playersyöbnl *a 

230 FGR 1=0 Tö 13 

260 READ X 

270 PUKE HfY+UX 

280 HEXT I 

290 A*~STICKfö) sREM aa Joystick «ird abaefrast *a 

300 X=iA<ßMAB8<A-10K2)iREH a* Berechnung,ob Horizontalhe«. vorliegt a* 

310 Y=iAB5(A-9)=4)tfA=9)-(AB3(A-10}=4l-fA=10):flEH aa Mo. fuer VertikalbBMua* »# 

320 REH ** Abfrage,ob Horizontale Grenze erreicht ist ** 

330 IF PHXa-K-50 8R PHX+X=20Ö THEN 370 

340 Pf)X=PHX+X:REH ** Veraendere Horizontale Position des Players ** 

350 PDKE HPÖSPOtPCXiREfl Bringe den neuen Bert in das entsprechende Register a* 

360 IF Y=0 TUEN 290?SER ** Ist eine Vertikalbessesmng vorhanden? ** 

370 REH aa AbfrasB,ob eine vertikale Randonsitiort erreicht ist a$ 

380 IE PHY+Y=379ÖC OR PHY+Y=38I2Ö THEK 290 

390 IF Y=-l TUEN VRi-8i=PftY!VRES2=PKY+i5:fiEH ** Bedingung der Routine faer Bett, nach oben » 
400 IF Y=M THEN VRESä=PHY+15:VRES2=PHY5ß£fl ** Bedingung der Routine fuer Be», nach unten ** 
410 RER *#* Vertikale Verschiebung aa* 

420 FÜR HVRE61 TO VREG2 STEP -Y 

430 VREG=PEEX(n:REH n Lade eine Playerreile aa 

440 PDKE I+V,VREßiREH #* Bringe den Bert eine Zeile hoeher (tiefer) ** 

450 HEXT I 

460 POKE !+Y>0:REK s* Loesche letzte Zeile «* 

470 PflY=PMV+¥ £ REM ** Erhoehe (erniedrige) PHY ua Y ** 

480 GOTO 290;REH ** lurueck zas Anfang aa 
490 REH Bild-Daten des Players aas 
500 DATA 24,24,60,60,126426,255,255,126,126,60,60, 

510 REH 
520 REH 

530 REH »m In der naechsten IHFG feist ein **» 

540 REH aaa Prograast in AsseeblQr.zue Einbau a*a 
550 REH a*a in eigene BASIC-Prograsee aaa 
560 REH 
570 REH 

580 REH aaa Christian m 




1 REH **** KANONEN ****** 

10 GRAPHICS 5 s SETCOLOH 0 , 6,7 
20 SETCOLOR 2,4,7;SETC0LDR 4,15,8 
löö COLOR 1sPLOT 0,3l:DRANTQ 2,39 
102 PLOT 9,32!l)RAWT0 2,39 
104 PLOT 71,3l:DRft»T0 79,39 
106 PLOT 7ö,32ii)RI»T0 77,39 
110 XI=1:91=1 
112 X--mT(RBBfl)*25)+25 
114 y=INT(RNDU)*15H3 

119 PRINT 

120 ? "laUBKS Pf=RECHTS“ 

122 ? 'JEDE SEITE 20 SCHUSS' 

150 PLOT 9,3?:DRAHTS 31,39 
1S2 PLOT 9,37sDRAHTö 31,37 
154 PLOT 9,3B:PL0T 31,38 
160 PLOT 69,39:DRftNTil 47,39 
162 PLOT A9,37sDRf»fT0 47,37 
164 PLOT 69,36:PLOT 47,33 

170 L(f=9iRH*69:LS=lÖäRS=68:T=32 
172 COLOR 2:PLOT 31,3l:DRANT0 47,31 
174 PLOT 31,33:DRAHTS 47,33 
176 PLOT 31,32:PLD7 47,32 
200 COLOR 3:SOSÜB 900 
2 Ö 2 P=PEEKf764):P0K£ 764,0 

220 IF P<>23 THEN 250 

221 SETCOLOR 4,7,8:IF LS>30 THEH 290 

222 COLOR 2:PLOT l,39:DRAWT0 40,0 

223 GüSUD 850 



224 PLOT LS,38:LS=LS*l 

J?M X I V L r L (H>0) (ft<4! THEH COLOR 3ipLÖT LH,35:LH=LH*2:SOSOB 860 
245 COLOR 4:PLOT 1,39:DRANTO 40,0:GOTO 290 

250 IF P<>37 TUEN 290 

251 SETCOLOR 4,7,0:IF RSC48 THEH 290 

252 COLOR 2:PLÖ7 78,39:DRA6fT0 39,0 

253 SOSUB 850 

254 PLOT RS,38:ftS*RS'T 

S m (H(4) THEfi “ 31 iN-OT RH,35:RH=RH-2:e05üfi 860 

288 COLOR 4: PLOT 78,39:DRMT0 39,0 

290 IF (L.S>30f AHO (RS<48) THEH 800 
296 IF T>45 THEH BOO 

300 COLOR 4:S8SU9 900 

301 SETCOLOR 4,15,8 


305 fF V** Z1=-Xl!F0R 1=1 T0 ISiSOÜW 0,X+V,l(l,7:ft£XT I 

307 X=X+xm=Wi H ¥I= " YI!T::T+0 * S!F3R 1=1 Ttl ‘5*SOUND 0,X+V,tO,7*NEKT I 


309 COLOR 3:PLOT T,32 
320 TF 7>45 TUEN 600 
330 SOUND 0,0,0,0 
350 GOTO 200 
599 GOTß 599 

800 ? :? “RETURN FUER NEUES SPIEL* 
810 P=PEEKI764):IF P=12 THEH RUN 
815 SOUND 0,RNDIlf*25ö,10,7 
820 6ÖT0 810 

850 FÜR I=X TO X+!0:SöUND 0 , 1 , 10,11 
052 HEXT ÜSOUND 0,0,0,0:RETURN 
860 SETCOLOR 4,3,9:F0R J=10 TO 190 
864 SOUND Ö,J,12,9:HEXT J 
868 COLOR 4: SOSUB 900 
870 X=If)T(RNDt 11*25)+25 
972 y=lNT<RNDU)*15)+5 

678 RETURN 


900 PLOT X+l,VrPLOt X+2,V+l:P|.0T X,y +1 
904 PLOT X+1,V+2:PL0T X+1,V+1:RETURN 



0 REH « GTIfl TEST 9; « 

1 REH « 3-D MOND LANDSCHAFT ** 
iO R=16:X=0:C=15 
20 GRAPHICS SiSETCPLOR 4,13,0 
30 FOR 1=130 Tö 191 
40 COLOR C 

50 PLOT O.ÜDRANTO 79,1 
60 X=X+UIF X=4 TUEN X=0:C=C-1 
70 HEXT I 

SO FBR 1=0 TO 79 STEP 8 

90 COLOR 3: PLOT 59,130iDRANTD M91 

100 HEXT I 

110 COLOR ÜFÖR 1=0 TD 7: PLOT 2,164: DRAHTO 21,150+1:NEXT I 

120 COLOR 15IF0R 1=0 TO 3rPLÜT 21,M0:DRANTÖ 21+M64-I*2UEXT I 

130 COLOR 4*F0R 1=0 70 4IPL0T 20,14ö:DRABTÜ 17+M6Ö+I:NEXT I 

HO FOR 7=1 TO 15 

150 FOR 1=0 TO 360 STEP 6 

160 X=Ü.25*ft*CflS(I)+35 

170 Y=R*SINü)*50 

ISO COLOR Z 



190 PLOT X,Y 
200 PLOT X+10,y+17 
210 PLOT X+30.Y-2Ö 

220 PLOT X-2.Y+12 / 

230 PLOT X+21.Y+7Ö 
240 HEXT I 
250 R=R-1 
260 NEXT I 

270 FOR 1=2 TO 4:CDLÜR ÜPLOT 46,72:DRAMT0 51+M06 

280 PLOT 43,62:DRAHTO 39,50+1 

290 PLOT 47,62:BRANT8 60+1,35 

300 NEXT I 

310 GOTO 310 


0 RER ** BTIA TEST 10: « 

! REH n FARSXREüZ ** 

10 A=1:R=26 

20 DIR X(36Ö),Y1360) 

30 GRAPHICS 11:SETCOLßR 4,0,12iDEG 
40 FOR 1=0 TO 15 
50 CÜLOR I 

60 PLOT 31+I,0:MANTÜ 31+1,191 
70 PLOT 0,86+1:DRAHTO 79,86+1 
80 NEXT I 

90 FOR 1=0 TO 360 STEP 2 
100 XÜ)=R*CDSU)+34 
110 Y(I)=R*SlNÜ)+95 
120 NEXT I 

130 FÖR i=ö Tü 360 STEP 2 
140 COLOR A 

150 PLOT X(I)+A,YU)+ft 

160 NEXT I —= 

170 ß=A+l 

180 IF A=16 THEN 200 
190 GOTO 130 
200 GOTO 200 




40 RER m BTH TEST 5; 4+ 
l RE« n FARBIGER KASTEN ** 

10 GRAPHICS i0:FDR 1=705 TD 712SPÖKE I,PEOC4537701 :HEXT I'FOR M T3 3i STEP 

5 z ^ssr:? ,r ,™ 51 ,icM " 

JO PLOT K4-7,J3:0ßftWT0 K+7,19W3;PLÜT 72-K,J3sBRANTÖ 72-K,19W3:F0R ui ™ t CTFP -i 

ÜT JB,1914H-K3)DMHT0 J7M9I+H-K3JPL0T J8,KHUWNni J71.K3-HHEXT WEXT OTT I:PCKE 77,ös«JT0 10 



0 REN ** STIA TEST 7; ** 

BILOflOHIIW •* 

20 SDÖRES=1534:PQKE^5A28äfl4! ' MÖ^l8‘ READ^Pim^ f 25ß#PE£K 1561J -»iü, 143 

30 Pßffi 5I2,ÄBDRES-23W:Pa£E 542^172^^7? KiP^IN!IAD8RES/256) JPfflCE 513 ,P 

40 FDfl * = ° T ° 159!CßL0R M04PLDT «:» 1 "*°’i 


64 


ö REN m £Tiß TEST 0; * 

1 RE» ** 3-8 BALKEN ** 

|» 0 S™;:®““ sraK,,, ‘ a “ Ks "«c«, 

* fS 5r?^cET" '™ * PffiI11 ® 

»Säbk"“ 

80 GÖTß BOiREM HOLD 5CREEW 




0 REtf « BENEGLICHER KASTE» ** 
1190 BIN XSTEP (2CMSTEP (20) 

1200 SETCOtOR 0,2,8 
1210 CHLOR 1 
1220 GRAPHICS (7+16) 

1230 X=BO 
1240 ¥=40 

1290 XS7EP!5)=l:Y5TEP(5)=l 
1300 XSTEP(6)=1:VSTEP(6)=-t 
1310 XSTEP17 >=1:YSTEP17)=0 
1320 XSTEP(9)=-l:VSTEP f9)=1 
1330 XSTEPl10)=-l:VSTEP1101=-l 
1340 XSTEPfllJ=-liYSTEP(n>"0 
1350 XSTEP113) =0s VSTEP f13)=1 
1360 XSTEP114!=0iYSTEP ü 4)=-l 
1370 XSTEP(151=0!YSTEPi15)=0 
1375 GOTO 1580 
1410 SOUND 0,0,0,0 
1470 IF STRIS(0)=0 TUEN 1200 
1480 B=STICK(0> 

1490 IF S-15 TUEN 1470 
1540 COEUR 0 
1550 ßüSUB 1990 
ISO COEUR 1 

1620 X=X+XSTEPIS)*5s Y=Y+YSTEP1S)*5 

1630 TRAP 1070 

1650 PLOT X.Y 

1660 SGSUB 1990 

1670 SOTO 1470 

1870 X=X-XSTEPfS)*5iY=Y-YSTEP1S)*5 

1880 SRAPHICS (7+t6):CÖLDR 1 

1900 FOR 1=15 TO 0 STEP -1 

1910 FOfi 3=1 TO 3 

1920 »EXT J 

1930 SOUND 0,136,10,1 

1940 BEXT I 

1950 GOTD 1630 

1955 STOP 

1990 SRASJTG XHO,Y 
2000 DRANTQ X+1O.Y+10 
2010 DRABTO X.Y+10 
2020 DRANTO X,Y 
2030 RETURN 
2040 ENS 



1 REH ** STIfl TEST li ** 

2 REH m BAREM DIE SICH ** 

3 REN « IN DER FARBE ** 

4 REH ** VERAENDERN. m 


1? Ü™ TD 10 STEP 2:m J=0 T0 15SCOL0R J:PLOT 0,K*H+J+iiDMKTO 7W!*IW*1 

20 PLOT 0^(C*16-JsDRAHTfl 79.K«16~J:(KKT JiNEXT K 

30 FOR K=1 TD 255 STEP 1ÜPDKE 712>K;F0R J=1 TD 5 W): HEXT JiHEXT K.'GQTÜ 30 


ö REH ** BTirt TEST 2i w 
I REH ** SCHIKHERHDE BALKEN 
10 GRAPHICS lOsFGR K=70S TO 
20 FOR K=7ö4 TO 712;FOR J=1 


712SPUKE L12:jffiXT KsFOR K=0 TO 7?:CQL0fi (K+4)/10:PLOT MiBRWTO K» 191:HEXT 
TO 3OÜSP0KE K,PEEK(20):HEXT JiNEXT iCfiOTB 20 


K 



0 REH ** 6TIA TEST 3; ** 

1 REH m BIZARRES MUSTER ** 

10 GRAPHICS 1JSF0R K=i TO 124;C0L0R KiDRANTO RND(1)*79,01(01 l)*191:fiEXT KsßOTD 10 






0 REH m* SPIT2E *m 

1 ? M Dder X Soielsr’JilHPUT PFsDIH A(199):ß3=PP 

2 ? 9 S-STUFE(4-1G) “SälHPUT HG 

3 GRAPHICS 8 JSETCffi.GR 2.0.0 

4 COLDH 1 

5 E=0:L=5 

6 B=20 

7 IF 5)2 TKK 9 

fi F=16:]F H<7 THE« F=28 

9 FOR T=I TO (310/I2*M}) 

10 IF PP=Ü THEH DD=DBtIiA--AIBBlsSOTO 12 

11 ft=INT(fM(Ö)*0O}:BB=Dim:ft(DD>=A 

12 TRAP 20 

13 IF E~A>20 0R E-fK-20 THEH 10 
H IF A<“1 THEH 10 

16 R=ft+1 

17 If R =1 THEH PLÖT L,A:BIMl:6tno 20 
1B PLOT L-HBiE 

20 BRABTÖ L> fl:DfiflWTQ L*HQ,A 

21 IF R=1 THEH PLOT L.fl-1:0«=fliBOTß 24 

23 PLOT L-MB.E-1 

24 DRAHTD L,fl~3:DRAUTO L+Hß.A-i 

25 TRAP 30 

26 IF R =1 THEH PLOT L,A+D:6öT0 30 

27 PLOT L-M.E+D 

30 BRfflTffl L.At»:DRAHTD L+«G,AH> 

31 IF R=1 THEH PLOT L.MHUBtmi 33 

32 PLOT L-W.EtB*l 

33 DRAHTD LiA'ä-D+tE BRAHTO L+KB.A+IH-i 
35 E=A 

40 L=L+2*H8 
SO HEXT T 

60 FÖR T=1 TO GH+iö 
6 t TRAP 70 

65 CDLGH OiPLGT 2.T--1 
70 COLOR ItPLDT 2.T 
BO «EXT T 
85 V=T 

06 TRAP 40000 

90 IF STRIS(0)=1 THEH VOs GOTO 95 
95 S»!W=3 

100 R=ft+S: IF MIR THEH 1000 

186 IF STICK(01=14 THEH WM 

187 IF STICK 101=13 THEH V*V+1 
m IF STRIG<0)=ö THEH S=Ö„5 

189 IF STRIGlö)=l THEH G=i 

190 »9=D9+i:PLOT R,Vs TRAP 5000 

191 LOCATE N+S.V;J!JLOCATE H,V+l.J2:LBCflTE IU-1,J3:TRAP 196 

192 LOCATE Nt2,V,J4:LGCATE H.V+2.J5IL0CATE ILV-2,36 

193 SGUKD 0,0,0,0 



195 IF Jl=l AKB J4=J DR J2=l AND 35=1 GR 33=1 AND 36=1 THEH SOUND <MÖ,1Ö,1Q:TK=TK+1 

196 ? D9.TH,1ÖÖÖ-D9-7H*4,KLQ+1 
200 GOTO 100 


5000 ? *SPIT2E’:KLG=lö0ö“D9-Tfj*4 

5001 IF PP>i MN PP=0 

5002 IF STRIGI8>=0 THEH A=OiR=ö:«=0:31=0:32=0: J3=0: J4=ö:V=0:DD=Q:TB=ü:D9=0:GBT8 5010 

5003 GOTO 5001 


5010 63=83-1:IF 83=0 THEN RUR 

5011 GOTO 3 

6000 ST=Ö.5:RETURN 
7000 SMsRETlHW 


0 REH ***** E H E H V ***** 

10 CLR 

15 flld Pi(20),HS$(2ö),DPÜ21iBSÜ2) 

20 GRAPHICS 5 

30 SETCÖLtffi 2i0;0:PöKE 7Ö8,255:SETCÜLÜR 1,7.8 
35 FQKE 752,1 

40 ? "JRfifE "ülHRÜT P$ . 

50 FCR X=1 TO 12*DP(?O=0s0Si5O=lsEXH.DR 2:PL0T 0,X*3*N£XT X:5G*ü:GP=18 

100 ? "JPLAYER UP : "SPt;* * SCORE : *;SC:? i? "HI 8 H SCORE : “;HS;" BY : ';HS (5 

120 IF STR1B(0)=Ö THE« 2000 

130 GOSUB 1000!GOTO 120 

1000 S=STICK(0):IF S=15 MH 1500 

1010 IF S=10 ÖR S-14 EH S =6 THEW 1100 

1020 IF S=9 OR S=13 OR S=5 THEN 1200 

1030 GOTO 1500 

1100 GP=SP-3:IF GP<3 THEH SP=3:GOTO 1500 
1150 GOSUB 1300:COLOR OsPLOT 79,GP+3:G0T0 1500 
1200 GP=GP+3iIF GP>36 THEN GP=36:60T0 1300 
1250 GOSUB 130ö:C0L0R OsPLQT 79,GP-3:ßQTÖ 1500 
1300 SQÜKD 0,0,0,I4:S0UNB 0,0,ö,Q!ftETURN 
1500 COLGR ÜPIOT 79,GP 
1510 D=INTI12*RHD(0mi:lF 3=073 THEH 1510 
1520 0P(D)=DP(D)*DS(D)!lF DP(01>78 THEN 3000 
1530 COLDR OsPLOT DP(D)-DS(lf},D*3 
1540 COLOR 2:PLOT DP!D!,D*3 
1350 RETURN 

2000 GOSUB 2GOO:0=GP:F8R X=76 TO 1 STEP -2 

2010 LOCfiTE X, 8 ,Z 

2015 SOUND ö,X,8>10 

2020 IF Z>0 CR X<DP!B/31 THEN 2500 

2030 COLOR OsPLQT X+2,S:CÖL0R UPLDT X,ß:GOSUB lOOOsNEXT X 

2500 SOSC+DP(fl/31*BS(fl/31 

2505 SOUND 0,0,50, MspOfZ Z=1 TO lOsHEXT Z:SOUND 0,0,0,0 



2510 COLOR 0;PLOT X+2,8iPLGT DP(8/31,0 
2520 DP!3/3)=O;DS(0/31=DSiÖ/3Hl 
2530 IF DS(fl/31 =7 THEN DS(ß/3)=6 
2540 COLOR 2:PL0T 0,0:GOTO 100 

2G00 SOUND 0,150,10, lOiFOR Z=1 TO 10:HEXT Z:SOUND 0,0,0,0*RETURN 

3000 COLOR OsPLOT DP(D>-DS(Bl,B*3:CßLUR 2sPL0T 79,D*3 

3001 ? “T-iPS; 11 DO BIST BESIEGT“ 

3005 ? "ENDPUNKTESTAXB: “;SC 

3010 ? ‘IST DORT HOCH EIH ANDERER (1=Y/0=N)MINPÜT ZÜF NOT Z TffiH END 
3020 IF SOUS THEH HS=SOHS$=P$ 

4000 GOTO 20 / 


0 REH ** PUFF LIED ** 

I GRAPHICS 0 

4 GRAPHICS 2H6:POSITION 4,4:? *6;"PÜFF'sPOSITIOH 1,7:? 86;"DER KAÖISCHE ":? 86;" DRACHE" 

5 X=liA=l 




io fl=ft+i 
15 RES70RE 

17 REH ? A 

18 IF A=5 THE« 400 
20 READ BjCjDiE 
25 IF E=-l THE« GOTO 10 

30 S9H O,84Ö4OiS0UND i,C40,4:SBÜtö) 2,D,10,4:SDUND 3,E,i0,o:3OEU0 2000 
75 IF X=I«T(X/2) THEEt 605UB 100 
77 IF X=3 TUEN X=0 

00 SDIB4D 0,0,0,0iSOUND 1,0,0,0:SCUHD 2,0,0,Ö 
90 GOTO 20 

100 SOUND 3,0,0,0:ftETURN 

230 DATA 72,0,0,144,96,114,0,144,72,0,0,144,72,96,114,144,76,0,0,114,114,153,0,114,96,0,0,114,114,153,0,114 
240 DATA 85,0,0,108,108,14*4,108,72,0,0,108,72,103,144,108,96,0,0,144,114,144,0,144,0,0,0,144,96,114,144,144 
250 DATA 108,0,0,108,108,144,173,108,96,0,0,108,108,144,173,108,114,144,0,144,96,0,0,144,72,85,114,173,72,0,0,173 
260 DATA 72,102,0428,85,0,0,128,76,0,0,173,72,0,0,173,64,0,0,193,76,109,0,193,0,0,0,128,76,108,0,128 
270 DATA 72,0,0444,72,96414444,72,0,0444,72,96,114,144,76,0,0,1144 14,153,0,114,96,0,0,114,1144 53,0414 
280 »ATA 85,0,0408,85408444408,72,0,0408,72408444408,96,0,0444414444,0444,0,0,0444,96414444444 
290 DATA 108,0,0408408444473408,96»O»O4O84084444734004i44 44,0,144,96,0,0444,72,854144 73,72,0,04 73 
300 DATA 85402,0428,72,0,0428,76408,0493,64,0,0493,72,0,0444414444,0444,76,0,0493408428,0493 



310 DATA 72,0,0444,96414,0444,72,0,0444,72,96414444,76,0,0414414453,0414,96,0,0414414453,0414 
320 DATA 85,0,0408408444,0408,72,0,0408,72408,144400,96,0,0444414444,0444,0,0,0,144,96414444444 
330 DATA 108,0,0408408,144473408,?6,Ö,040840B444473,108414444,0444,96,0,0444,72,85414473,72,0,0473 
340 DATA 72402,0428,85,0,0428,76,0,0473,72,0,0473,64,0,0493,76408,0493,0,0,0428,76408,0428 
350 DATA 72,0,0444,96414,0444,72,0,0444,72,96414444,76,0,0414414453,0414,96,0,0414414453,0414 
360 DATA 85,0,0408408444,0408,72,0,0408,72408444408,96,0,0444,114444,0444,0,0,0,144,96414444444 
370 DATA 108,0,0408408444473400,96,0,040B4O8444473408414444,0444,96,6,0,144,72,05414473,72,0,0,173 
380 DATA 85402,04 28,72,0,0428,764 08,04 93,64,0,0493,72,0,04 44,964 14,0 444,964 14, 0 , 0 , 72,0,0>ö, 0 , 0 , 0,-1 
400 READ 8,C,ß,t 

465 IF E=~l TUEN 450 

410 STO O,B4O40:SflÜND 1,E40,4!SDESJB 2,D40,4:SOUND 3,E40,6:GÖSU6 2000 
420 SOUND 0,0,0,0:SOUND i,O,O,0iSDUND 2,P,0,O:SOTO 400 
450 READ 0,8,0 
455 IF ß=-2 THEN 480 

466 SOUND 6>B, 10,8:SOUND 1,C40,B:S0UN» 2,D40,8:80SUB 2000 
470 FOR T=1 TO 5:SOUND 1,0,0,0:SÜD® 2>O,O,0:KEXT T:8flT0 450 
4B0 READ C,D 
483 IF D=-3 THEN 600 

485 SOUND 0,724O,8:SDIIN» 1,C40,8:SO(IND 2,D40,8:B0SUB 2O0O 
490 FOR T=1 TO 3sSOUND 1,Ü,O,0:38ÜNB 2,ö,0,0ifOT T 

560 DATA 85,6,0402428,6,72,0,0402428,0,76,0,0408428,0,64,0,0408420,0,0,0,-2 
510 DATA 0,0,96414,0,0,96414,96414,0,-3 
600 FOR T=1 TO lOOiNEXT T:SflÜ»D O,O,0,6:Effi) 

2000 FOR T=1 TD 70:HEXT TsX=XH:RETURN 






130 DATA 56,56,16,56,34,16,40,48 
140 DATO 170,85,170,85,170,85,170,85 
150 SfITA 0,20,60,110,126,62,28,0 
160 DATA 128,66,36,24,24,36,66,129 
170 DATA 120,64,32,16,8,4,2,1 
180 DATO 1,2,4,8,16,32,64,128 
190 DATA 16,16,124,16,16,16,56,124 
200 BIH CHAR*(81,«NICKIS,21 
210 CHA8t="*+-»< >X‘:HINER=5 

220 GRAPHICS KlfciSSTCOLOR 4,6,4:SETCÖLÜR O.MOsSETCflLÜR 
230 ? 461 *6DLDRUSH!":SETC0LÖR 2,3,0 
240 PB6ITI0R 9,0:? SAs'please »aif 
250 ClSET=IPEEmö6)-8U256sCHÜRG=57344 
260 IF PEBCfCNBEWKX) DEN 540 
270 FOR 1-0 TD 5it:PGKE CHSET+I,PEEK tCHORS+11: «EXT I 
290 FOR 1=1 7ß 7 

290 CNPCS=CHSET+[ASC(CHAR$Ü1)-321$8 
300 FDR 3=0 TD 7 
310 READ A-POKE CHPOM,A 
320 HEXT 3:HEXT I 

330 FDR 1=32 TQ 39:P0KE CHSET+1,2K-PEEK(CHORB+1)JHEXT I 
340 PAKE 756,CHSET/256 
350 POSITION 0,0:? 46;’HEN!5 * 

360 N8SGETS=Q 

370 FÜR 1=1 TO 22:FDR J=o TU 19 

380 IF RWö(0}>8.4 THE« COLOR ASCtCHAR*(2)1+128:PLOT 3,1s81.. , 

390 IF I>3 TIO COLOR ASCiCHfiR$f3))!PlS7 J,I:HDGS£TS=HUSSETS+1 
400 «EXT JiHEXT I 

410 CHARSE5=lösPOSITION 9,23s? #6;"! CHfiREES! “ > CHARSESI 
420 XPOS=t1:¥PÖS=0:EÜF=0:SDTD 590 
430 REH HAM LOOP 
440 ST=STICK(Ol:TRUSTSIG 10) 

450 IF PEEK(201)15 TUEN POKE 709,{lHT(J6*Rtöl(e))*l6+lÖ):Pi)KE 
460 IF EHF THE« BOUKO i,T, 10,8sT=T>M7<3H2£TMM:lF TI>200 
470 IF 1-TR THEN IF EHF=0 THE« 920 
480 IF ST=!5 THE« 440 
490 9=- (ST=141 * 1YPOS >0) -f (ST= 131« (YPBS< 22) 

500 H=- (ST*11)* (XPOSXSH- (ST=71 * (KPCSC19) 

510 CQLOR 32:PLOT XPOS,YPÜS 
520 KPCS^KPOS+H:VPOS=¥PßS+V 
530 LÜCATE XFUS,YPOS,WMflT 
540 IF HHAT=32 THE« 590 

550 IF JiNAT=A5CiCHAR$(3)) TREU GOSÜB 64ÖSGGTÖ 590 
560 IF HKftTsfiSClCHARSm) THE« S05U8 760:GOTO 390 
570 IF «HAT=4 TtO GÖSDB 670sREH CASH IN! 

580 SßUHD 0,100,12,8sFDR 8=1 TO 20:HEXT ftSQUND 0,ö,0,0:XPDS=X?DS-H:WJS=YPDS'V:nä.öR 138:PL8T XPÖS,YPGSsßQTO 440 
590 COLOR I3BSPL8T XPOS.YPOa -- 

600 IF EHF ARD YPDS=Ö THEN EHF=0:COLOR 32SPLÜT XPDS,YPOS:SGUSD 1,0,0,0:GOTO 410 
610 F9R H=8 TO 0 STEP -1:S01JM3 0,H*5,12,H:«EXT 8 

■ X 


10 


400 


20 


THEH 


6070 


SflUND 


620 GOTO 440 
630 GOTO 630 

640 FOR «=15 TD 0 STEP -lsSQUND 0,20,10,«sHEXT KseDLD=ÖH.O+i:»iGKTS=f«TS-lilF ffllGETS<0 TUEN HU66ETS=Ö 
650 POSITION 0,23s? "sBOUi' “ 

660 RETURN 
670 REH CASH INI 
680 SOUND 2,4,10,4 

690 FOR MO TO 5 STEP -ÜFÖS 1=15 TD 0 STEP -JsgßUHD 0,«,iö,l:fOT IsfflEXT 8 
700 SOUND 2,0,0,0 
710 CASH=aSKtsn.D*CKAR8ES:S0LS=0 
720 ÖOSUB 650 

730 POSITION 14,0:? SiJCASH 
740 IF HUG6ETS=Ö THE« PÖP igßTO 360 


750 RETURN 




Uov.A 


19 8=3000:60SUB SißOTö 2000 

10 81« flüSOl.AK^^SÜOl.BiüXl.CJtSJ.KfMüOPEH #l ) 4 ) 0. , K!^K$« , ICffiiHDERPB0BRj»!H'iKt!Nl=2 
30 GRAPHICS 2SGGSUB S:SETCOLDR 4,B,2:SETCßLOR 2,B,2:PSSITIÖH 2.3s? «EK« 

100 TRAP 2000:? ">Fuer «elches Jahr ‘üIHPUT J 

101 TRAP 104: JiW:? «IFuer Kelchen Honat ü*!2) B S: IHPUT HßNMF HBB(1 00 «BH>12 THE« 101 

103 GOTO 105 

104 HUhl 



105 POKE 752,1:? "} BUSBBBE AUF DE« Uildschir» 

106 6ET JUAU 

107 TRAP 1700:TF Al!=50 THE« LPRINT EHM(14>!" KALENDER FUER “SjiUKIHT 
110 JlaJUF 3000 THE« J=J*19QÖ 

120 «=l:B$='' *:L=ö:lF lNT(J/4)OJ/4 TBE« 150 

130 IF INTIJ/tOOWAOÖ THE« IF IST{J/4Ö0K>3/400 THE« 150 

140 S*=“(SchaltjahrJ*iL=1 

150 T=IHTi13-1893)/♦» 

160 C= 13-18930)/7:C=I«T((C-INT(01*7+0.51 

165 RESTORE I39ö:FQR 1=1 TO 12:R£Aß A:A(I)=A:HEXT l:fi(2)=Ai2HL 

170 FÖR H=HON TO 12:RESTÖRE 1400:FOR 1=1 TO «sREflß A$:NEXT I 

100 8=0:IF h=i THE« 200 

190 FOR 1=1 TB fHäD=B+A<IÜIOT I 

200 D*IJHC)/7 

205 B=I»Tt1D-IM7(D)}*7+Ö.5J 
210 IF 0=0 THE« D=7 
TA RE« 

230 T=0:Fßft 1=0-2 TB 0 STEP -i:T=T+l:A(T+12)=i-I):«EXT I 
240 P~1 irOft J=D TB 7:A(J+12!=P:P*P*!ä«£XT J 


JLPRIHT 


2.Dnicter* 

iLPRIHT “ 


250 RESTORE H20:«=0:1F AU*5Ü THE« 400 

260 GRAPHICS 2+16:S0BU8 BsSETCGLOft 4,8,2:FOR J=0 TO 13 STEP 3:READ Bi:POSmß« 3,3:? ttlS&HEXT 3 
290 FOR 1=4 TO 11 


300 P=0:F0R 3=0 Tö 18 STEP 3 
—310 P=P+ÜS=A{P+12)*tt*7 

320 IF Q<=0 AHD AD=5Ö THEM LPRIHT CHRIÜ4)i" »üSBTfl 370 
330 IF fl<=Ö ÖR 8>A1H) THEH 370 

334 IF AU=5Ö BSD fl<10 THE« LPRIHT CHRSI14); S ’j 

335 IF «J~50 THEH LPRIHT CKR«(141;Q; “ "NfiOTO 370 
340 POSITION J,Is? 46;ö 

V370 «EXT J:«=B+!:IF AD=50 THE« LPRENT 
x 375 «EXT I: IF ftü=SO THE« «EXT «:RUH 



3Ö0 TRAP 3ß0sSOUND ö,2Ö,10,15äSÖSlffi 1500:P05ITIBN KOH.l:? #6jft$tStXfD 0,0,®4:GET «,K:ß85lffi lAOÖiHEXT Hiß» 
400 LPRIHT CHR0U41IA«:LPRIHT iLPWHT sFDR 3=1 TÜ 7:READ COUPRINT CHR4(ü;C*;* 3:LPRIHT *60TO 290 


13W MTA 31,28,31,30,31,30,31,31,30,31,30,31 

'400 DATA JANÜAR,FEBRUAR,HAERZ >APNIL,KAI,JUHI,JULI,fiUSÜST,SEPTENBEft,OKTOBER,KßVEKBER,DEZEHBER 
„y20 DATA eo,B0,DI,«!,5D,FR,SA 

1500 KtHH,EN< A$):KOH=INT((20-äC0tO 12 ):POSITION 8,0:? 56;JA:RETURN 

1600 IF K=155 7(0 RUH 

1601 RETURN 

1700 GRAPHICS OsSOSUB B:P9KE 752,1:? a }} B :POKE 712,32:PÖKE 710,32 

1701 POSITION 2,8:? «BEACHTE» SIE BITTE DASS IHR DRUCKER 0 :? :? "RICHT18 ANGESCHLDSSEH IST!" 

1705 POSITION 2,19:? ‘DRUECKEH SIE DANN RETURN!“ 

1708 IF PEEK(764)(>12 THEH 1708 

1709 POKE 744,255:GRAPHICS 2:G3SUB BsSETCDLOR 4,9,2:SETCßLOR 2,3,2:PDSmON 2,3:? 06fK*efi0TO 105 
2000 GRAPHICS 0:S0SUB B:POKE 752,1:? “}**:PORE 710,0 

2010 POSITIÖH 3,15? "*** 

2011 POSITION 3,5:? ’ANHERKüSG:':POSITION 2,7:? “Nenn Sie einen Honat gesehen haben dam druecke» Sie irgendeine Taste" 

2012 ? :? “Senn Sie RETURN drueeken startet das Prosraea nieder neu." 

2013 POSITION 2,18:? 'Im Prosraanstart ftETURB drueeken ! 0 

2014 IF PEEK(764K>12 THE« 2014 

2015 PÖKE 764,255: IF KÖN1M THE« 30 

2016 GOTO lö 

3ÖÖÖ FOKE 16,64:R3KE 53774, 6 CPQKE 5BÖ,0:RETURN JREH PÖKE 580,1 

32000 FOR »=PEEKtl3ö)*256*PEEK(13ü TO P£EK1132)+254*PEEK(1331 sPOKE «,155:«EXT « 

32001 PAKE PEEKil3B)+256*P£EKÜ39)+2,0 

32002 REH ZEILE 3000 RICHTEN!!! CSfiVE 





760 REH GET THE GOLD FROH DEAD KIKU 

m for 1=5 ra i step -i 

780 IF «HIOm,ö)=XPOS AND H»ICHCM)*YPDS THE» BOO 

790 HEXT riRETffflW 

800 GOLMrüLD+HHICHf1,2>s 6D5U8 630 

810 RETURN 

820 REN EXPLÖSIÖN 

830 XP=XPI)5H1:YP=YP(]S+V:IF YP=0 TUEN 440 
840 RESTÖRE 850 
850 DATA 

860 FOR 1=1 TO 3:READ A,B 



870 IF XP+A>=Ö AND XP+A<=19 AND YP+B>=1 AND YP+B<=22 TO I.BCATE XP+A.YP+B,ZZ:IF 7ZM5 TO NU68ETS=Nt)6S£TS-i 
880 HEXT isCGLOR ASC(CHARS(4)) 

890 IF XP>=0 AND XP<20 TO PLOT XP,YP 

900 CQLOR ASC(CHAftt(5»:lF YP >2 AND XP>0 TO PLOT KP -1 ,VP -1 

910 IF YPC22 AND XP<19 TO PLDT XP+I.YP+I 

920 CflLÖR ASC{CHARS( 6 )):IF YP>2 AND XP<19 TO PLOT XP+l.YM 

930 IF YP<22 AND XP>0 TO PLOT XP-l,YP+i 

940 öl=PEEX(560)+256*F£EK(561>:SV=PEEK(712) 

950 FOR 8=15 TO 0 STEP -O.SsSDUND 0,SO,0,»tSW^l-S«:P0KE 712,51*14*16+6)sPUKE BL,ll2*Sa:[®CT 8 

960 mZ DL,U2sP0KE 712,SV 

980 CÖLQfi 32: IF XP>=0 AND XP(19 TO PLOT XP,VP 

9SS IF YP >2 AND XP>0 TO PIßT HM,VM 

990 IF YP<22 AMD XP<!9 THE« PLOT XP+l.YP+1 

1000 IF YP>2 AM XP(19 TO PLOT XP+i,YP-i 

1010 IF VP<22 AND XP>0 TO PLOT XP-I.YPH 

1820 COLDR 133:PLOT XPQ3,YP8S 

1030 FOR 1=1 TO 20 

1040 RX=INT(20*RNB(fl)l:RY=IHT(22*RN3(0)+1) 

1050 LOTE RX,RY-!,Z2 

1060 LßCATE RX.HV.ZiEF 2=32 AND 22=171 TO EGLÖR 17t:PL8T RX.RY 
1070 IF 2-S3B TO 1130 
1080 HEXT 3 

1090 SHAft^5=CHAREES“i:PäSITIQK 18,23:? 16;EHARGES;" *i 
1108 IF CHARSES>Ö TUEN 440 

1110 n= 0 :EHF=l:p( 3 Smß(i 9,23:? R 6 ;« 9 et mt " 1 S 6 ÖTÖ 440 
1128 RE» BEAS »HER 

1130 FOR 1=14 TO 0 STEP ~0.5:SETCOL0H 3,4,1:SOUND 0,1,10,1:HEXT IiRSSTOE 1190 

1140 READ A,«:IF #t>0 TO SOUND 0A10,P:F0R 1=1 Tfl WiNEXT I 

1150 IF A >0 TO MD 0,0,0, OsFDR H =1 TD 5: WEXT WiEDTC 1140 

1160 CßLOR ASC(CHMt(7mt>L0T ITF13S,YPBS:MHICH<HIHER,21 =60LDsG0LD=0:EDSUB 65Ö 

1170 HHICH(HlWEfi,0)=XPOS:HHICH(HINER,l)=YPOS:flINER=»INER-!:lF NINER=0 THEN I210:REH SÄHE OVER 

Ü80 POSITION 4,0:? taJNINERJ:SETCOLÖR 3,4,10:6010 410 

1190 DATA 100,30,100,20,100,5,100,30,85,40,90,30,100,20,105,10.100,30 

1200 DATA -1,0 

1210 POSITION 0 , 0 :? S 6 f"gaa 0 ovsr‘ 

1220 POWE 709,PEEK133770) 

1230 IF P£EK(53279)<>6 THEN 1220 

1240 RUN \ / / 


$JK 



10 RER ******m*******]«***4m4***4* 

20 RER 

30 REH HEttORY DUHP/DISASSERBLER 
35 RER 
40 RER 

70 GRAPHICS OiPÖKE 752,1 

80 7 CHRK125)!" R E R 0 R Y DUMP i? 

90 ? "INITIALISIERUNG." 

100 DIR Ht(17),Ai(6),S4(6hH$ü536) 

110 H4="01234567B9ABCDEF" 

120 St=" 

150 OPEN #l,4 l 0»“K:" 

160 FOR X=1 TO 1531 STEP 6 
170 READ fil 

175 IF Ai(2,2)="*" THEH Ai(2,4)='*?*' 

180 H=LEN(A*)iIF N<6 THEN A$(N+l)=Si 
185 Rt(X,X+5)=Ai:NEXT X 

200 ? CHR$Ü25)i" H E R 0 R V D U H P “i? :? 

201 ? 'Gib Startadresse in DezinaHon ein." 

202 7 "oder HEX-Adresse «it ’t’ an Anfans.':? 

203 PQKE 752,0 

204 INPUT AüIF Ai='* THEN 209 

205 IF AÜMX'i' THEN 209 

206 FOR X=i TO LENIAS3 

207 IF AtfX.XK'Ü' OR Ai(X,X)>"9" THEN 200 
20B HEXT X:A=INT(VAL(A4)/B)*fl:6GT0 240 

209 A=OiIF LEN1A$)<2 THEN 200 

210 FOR X=2 TO LEN(A4) 

211 IF At(X,X)<"0" THEN 200 

212 IF At(X.X)<="9‘ THEN A=A*16+VAL(Ai(X,X)):G0TG 220 
215 IF A$(X,XX“A" OR Ai^X))^” THEN 200 

218 A=A*16+ASC(A$(X,X))-55 
220 NEXT X 

240 7 :7 "DISftSSEMBLEN Ja oder Nein?'! 

242 8ET #1,X!D=0:IF X=7B THEN 245 

244 D=l:lF X<>74 THEH 240 

245 7 CHRitX) 

250 7 !? "Ist Druckerauseabe »eimenstht Ja..Nein"! 

252 CLOSE 12 
2K P=0:fiET »1,X 

260 IF X=78 THEH OPEN 42,8,0,"E'äfiOTO 290 
270 IF X<>74 THEN 250 
280 P-UQPEN I2,8,0,“P:’ 

290 IF P=0 THEN ? CHR$Ü25),"G0T0 300 

295 ? "DRUECKE IRGENDEINE TASTE UH DRUCKER ZU STOPPEN':? 12 

300 IF D=L THEN ? #2i" OBJECT DISSASSERBLY • 

301 RER 

302 IF D=0 THEN ? #2!" MEMORY DUHP “i? I2i' 

305 7 42!" DEC/HEX *! 

310 7 42 

320 POKE 764,255 
330 IF P=0 THEN FÖR R=1 TO 20 
340 IF A>65535 THEN A=4-65536 
350 At=STRi(AHL=LEN(A$) 



320 




360 ? #2;S4(i,64.i;A4i" 

370 Y=A:BQSUB 950 
3BO ? '! 

4M IF D=0 THEN GW 

410 9=PEEK(A) 

411 SBSUB lOööi? S2!“ "1 

415 A=A+1:X= (4*V)H:A4=N4(X > X+5) 

420 IF A4(M)=“0" THE» ? Kl’ "!A$t2.4)J6QTG 630 

430 IF A>65535 THEN A=A-65536 

431 V=PEEK(A):60SUB 1000 

432 ? *2;* ";:A=AH 

435 IF A4(M)=“2* THE» 500 
440 ? *2;" "jA4(2,4)i" *; 

445 IF A$(5 ! 5K>-R’ THEH 470 

450 IF V>127 THEH V=Y-256 

4M Y=A+V:50511B 900:GÖT0 590 —- - 

470 IF «4(5,5)="!" THEN ? l2J'«"!:fiflSUB lOOOsBDTO 590 

475 IF A4(6,6)=")’ THEN ? «J"!*; 

480 ? #2;"t";:505UB 1000 

432 IF A4(5,5)=" * THEN 590 

485 IF At(5,6)«“YI* THEN ? #2!*)»V:ßOTO «0 

490 ? #2lV;A4(5,6):6GTß 630 

500 Vl=V;V=PEEK(Al:80SüB 1000:A=A*1 

510? *25" "!A4(2,4)i" "i 

515 V=VH(256*V) 

520 IF A4(5)5)=*)' THEN ? #2;‘rs:GCSl!B 9M:? #2;")":80Tfl 630 
525 SOSÜB 900 

530 IF A4(5,5)=* " THEN 590 
540 ? !2;V;A4(5,5)!8EtT0 630 
590 ? »2:GOTO 630 
600 FOR X=1 TO B:V=PEEK(A) 

610 GDSUB 1000:? 12;" 

620 A=A+UNEXT X:? »2 

630 IF P=Ü THEN HEXT H:GÜTO 700 

640 IF PEEK(764)=255 THEN 340 

650 GET «1,X 

700 PÖKE 752,1:? 

705 ? "Beiter..Neu,.oder Stoppen ?’! 

710 GET !1.X:IF X=87 THEN 290 
730 IF X=78 THEN 200 

740 IF XOB3 THEN ?:?:?" Falsche Einsabe";? iGOTO 705 
800 PQKE 752,0sCLOSE IÜCLQSE «:? :? ' ENDE'sEND 
900 ? #21 1 "4"; 


950 V=INT(Y/2S6>:eOSU8 1000 
960 9=Y-(V*256) 

1000 H=IKTlV/16)Jt=V-(H*16) 

1010 ?#2;H4(H+UfM)iH4(L+l,L+l)! 

1020 RETURN 

9000 DATA 0BRK.lßRAX).0>i,O«,0«,lEM,lASL,Ot 
9010 DATA OPHP,lDRA»,OASL.O*,0#,2ßRA.m>04 
9020 DATA lBPL«,lßRAYI»0*,0*,DMflftAX,lASU,ü* 
9030 DATA 0CLC,2ÖRAY,OM*.0*.2ß!taftSLX,0* 

9040 DATA 2JSR,lAWX).04,0*,IBnUAND.lROL,0* 

9050 DATA 0PLP,lftHD«,m,0*,26n>2AND,2RGL>0* 
9060 DATA 1BHIR,1ANDY),0*,04,0*,1ANDX,1ROLX,0* 
9070 DATA 05EC,2AHDY,0*,0*,Ü*,2ANDX,28GLX,0* 

9060 DATA 0RTI,lEDRX),Ö4,0*.Q*,lEßR,lLSR,0* 

9090 DATA OPHA, lECK», W.SR, 0*, 2JI1P, 2E0R, 2LSH, 0* 
9100 DATA lBV€R,lEORY)>O*,O«,0«.lE0RX>lt.SRX,0* 
9110 DATA 0CLI,2EORY,04.O**0*.2EDRX,2LSRX,0* 

9120 DATA ORTS, 1ADCX}>0*,0*> 0*i 1ADC,1R0R,M > 
9130 DATA 0PLA>1ADC#,0R9R’0*,2JNP)»2ADC,2RQR,Ö* 
9140 DATA lBVSR,lADCY) f O*,G*,DMADCX,lflÜRX f ß* 
9150 DATA 0SEI,2ADCV,0»,0*,0*,2ADCX,2RORX,O* 

9160 DATA 0*,1STAX)> 0*»0*>lSTYi1STA,15TX,0* 

9170 DATA 0DEY,0*,0TXfi,Ö*>2STY>2STA,2STX,0* 

9180 DATA IBCCSriSTAY),0*> 0*,ISTYXi1STAX»1STXY,0* 
9190 DATA OTYA,2 STAY,ÖTXSjO*,0*>2STAX,O*,O* 

9200 DATA 1LDY#4U)AX).UJ)X*,0*4LDY,1LDA,1LDX,0* 
9210 DATA ÖTAY,lLmOTAK,0*.2U)Y,2tDA,2lSX f fl* 
9220 DATA 18C5R»1LDAY),0*.0*,1LDYX,1LDAX,1LDXY,0* 
9230 DATA ÖCLV>2LDAY,0TSX,04,2l.DYX,2LDAX,2LDXY,0* 
9240 DATA lCPYMCNPXM*,ÖMWY.lCHP f 13EC,Ö* 
9250 DATA 0INY,lCMP!,0DEX,O«,2CPY,2CHP,2DEC,0i 
9260 DATA lBNER7lDPY).0*,0*,OMaPX'iBECX,0* 
9270 DATA 0CLD.2ClfY.0*,0«.0*>2O(PX,2DECX,0* 

9280 DATA 1CPXMSBCX),OM*>1{H,1SBC,1INC,0* 
9290 DATA OINX,1SBC!,ONQP.O*,2CPX,2SBC,2IHC,0* 
9300 DATA IBEBR^SBCYM^.O^ISBCX, UHCX.O* 
9310 DATA OSEB,2S8CY,0* ,04,0*,25BCX> 2INCX > 0* 



! 3IN »m> 

2 SIR B$<991 
10 ? ■)“ 

SETCOLOR 4>0*ISsSETCOLOR 2,0» 15: SETCOLOR 1,0,0 
20 ? ‘ICH KAEKLE 4 ZAHLEN ZWISCHEN 0-5° 

25 ? 

30 ? "SIE SUCHEN HIT au, 10 VERSUCHEN OIE 11 

40 ? ‘RICHTIGEN ZAHLEN & IHRE POSITION" 

41 ? ‘HICHT16: keine DOPPELTEN ZAHLEN* 

45 1 

50 ? ‘ICH BEBE je RICHTIGE ZAHL ,Je ‘ 

60 ? ‘RICHTIGE ZAHL und POSITION ’* ,a 
70 ? 

80 ? * BEISPIEL: - 



90 ? 
100 
110 
120 
130 
135 
140 

145 

146 
150 


VERSUCH * TIP * ANTMGRT* 


1 - 8 - 2-0 
1-5-fl-O 
1-2-3-0 


4 * 

9 9 “ 

RICHTIG“ 


‘L0ESUN6! 1-2-3-0' 


FERTIG IRETJ’JÜNPÜT AS 


160 A=lNT(ftND(0)*6):lF A=6 THEN 160 
170 B-IHT<RNB(0)*6>! IF 18=6 THEN 170 
180 C=1KT(RND(0)*6)!IF C=6 THEN 180 
190 B=INT(RNBfO)#6):lF B=6 THEN 190 
200 IF fi=B m A=C OR A=D THEN 160 
IF B=C 08 B=D THE« 170 
-J IF C=D THEN 190 

225 GRAPHICS 1 

226 ? ‘ KEIME DOPPELTEN!!!" 

227 ? “ 8=ZAHL RICHTIG" 

228 ? * *=ZAHL & POSITION RICHTIG' 

229 SETCOLOR 4,6,I5sSETCOLOR 2,0,15 

230 FßR R=ö TO 18 STEP 2 

240 CDIOR D1H65PLÖT UÜCBLOR 26:PL0T 2,ft 
242 COLOR 13:PLOT 4,R:PIGT 6,R:PLOT 0,R , 
250 M=Dl+liN£XT R 
260 FOR R=0 TO 28 STEP 2 

265 AA=AA<-1 

266 IF AA>10 THEN 5000 
310 OPEN #2,4,0, ,, Ki* 

320 SET 12, H 

325 GOSU0 1000 
330 SET 82, X 
335 6QSUB UOO 
340 SET #2,V 
345 ßÖSUB 1200 
350 BET #2,1 
355 GOSUB 1300 
360 CLOSE 12 




370 SOSÜB 2000 

380 L«INT(R»(0>*4)HF L=0 DR L=4 THE« 380 
370 6*3000+NMJfiüSUB 6 
580 «EXT R 
1000 N1=N~32 

1010 DOLOR ttliPLDT 3,!!:AETUR» 

ÜÖO X1=X“32 

mo DOLOR XliPLDT 5,R:RETliRM 
1200 Vl-Y-32 

1210 DOLOR Vis PLOT 7,R:RETÜRH 


■ l / 

' I / 

I / 





: 1300 ZM-32 

1310 COLOR Hi PLOT 9»R:RETURN 
2000 t)=9“48iX s X*-48s¥=¥-4fiE I=Z-48 
2006 IF tM TUEN Cl*10 

2010 IF X=8 THEN C2=10 

2020 IF Y=C THEff C3=10 

2030 IF 7=0 TUEN C4=10 

2040 IF K=B DR H=C OR INS THEK Cl-3 

2050 IF X=A DR X=C GR X=B THEN C2=3 

2055 IF Y=A DR Y-B DR Y=8 THEN C3=3 

2060 IF Z=A DR Z»B DR Z=C THEN C4=S 

2070 RETURN 

3000 El=C3tE2=CltE3=C4iE4*C2:6(n0 3040 
3010 El=C3iE2=CltE3=C4!E4=C2:60TD 3040 
3020 El»CläEM3sE3»C2i&NC4!BDTfl 3040 
3030 E1=C4t E!=C2s E3-C1iE4=C3 s 8GT0 3040 
3040 IF m ANS X=B AND V=C AND Z=ö THEN 
3045 F=U 

3050 COLOR El:PLOT F,R:F=F+2 
3055 IF Ei*0 THEN F-F-2 
3060 CCLOft E2:PLQT F,R;F=F+2 
3065 IF E2=0 THEN F=F-2 
3070 CI3LDR E3SPLDT F,R:F=F+2 
3075 IF E3=Ö THEN F=F-2 
3080 COLOR E4JPLÜT F.R 
3090 0=Ö:El=0:E2=ö:E3=ö:E4=0 
3072 Cl=öäC2=ÖJC3=ö:C4=0 
3095 !W)!X»0:Y*OiI*ö 
3100 RETURN 

5000 GRAPHICS OJSETCÖLÖR 2>3j IOsSETEBLOR 
5010 IF AA(=5 THEN 6000 
5015 IF TIO 5700 
5020 IF AA>8 AND MIO THEN 6500 
5030 IF Aß>18 MN 5900 
5100 ?:?:?’ BENOHMEH !i 8 
5110 ? :? ‘SIE BENQETIGTEM VERSUCHE. LÖS* NOCH EINHAL !! ABER BESSER!*’ 
5500 GOTO 7000 
5900 ? 8 SCHLECT !!!’ 

5*710 ? " LQESÜN6 : a ;fi: B -“SBi°- , ;C; a - ,, ;S:GOTD 7000 
6000 ? :? ;? 

6010 ? 8 SEHR SUT !!!*!!!!!!< ’ 

6015 ? i? :? 

6020 7 8 SIE HABEN HIT NUR 9 ;AA; n VERSUCHEN GHQNNEN* 

6100 FQR T=1 TO 5iF08 Yl*l TD 40 


6110 SOUND O.Vl.IO.lOiFOR U*1 TU 5:NEXT ID HEXT YÜNEXT TsStMÖ OsC.0,0 


6490 GOTO 7000 

6500 ?:?:?" GEKOHSäEN 7 JA!! ABER NIE? 5CHNACH 8 
6510 7 :? * SIE BRAUCHTEN B ;ftflJ"VESSUCHE" 

7000 ? i? :? * NOCH EINMAL (J/N> B ;:INFUT B$ 

7010 IF B^'J 8 TUEN RUN 
lOOCO END 



1 REN ORBIT GR. 

2 REH 

3 REH 

4 REH 

5 REH 
10 REH 
20 REH 
30 REH 

40 REH SC SET UP THE SÄHE 
50 REH 
£0 GOTO 1000 
70 REH 

30 REH THE TISHT DISPLAY LOOP 
90 REH 

100 TRAP 100!GOTO 120 
110 PLDT Kd),Y(I) 

120 RETURN 

130 FW! EVE8=1 TD 1 STEP 0 
140 PÖKE 77,0 
150 FOR 1=1 TD T 
ISO FDR 0=1 iß T 

170 IF IOJ TUEN X=Xd)-X(I)iY=YU)-V(l):D2>>X*X+M>B>6tJ)/(92«flBR(92))iU(nBUd)f6*XiVd)>Vdt4HY 

1B0 HEXT J 

190 HEXT I 

200 FDR 1=1 TO T 

210 CM 3 

220 GGSUB iiO 

230 Yd)>Yd)+VU) 


1IB0 REH 

1190 BIN 6(T),X(T),Y(T),UfT),V(T) 

1200 REH 

1210 REH BET VALUES FDR ALL DBJECTS 
1220 REH 

12» m 1=1 TD T 

1240 PRINT "FDR ORBITING OBJECT s il 
12» PRINT "SRAVITY*"!!INPUT A:B(I)=A 
1260 PRINT “X-COÖRB^üINPUT A:X(I1=A 
1270 PRINT ■Y-töQRD='fUNPUT A:Y(I)=A 
1280 PRINT "X SPEEO= a ftINPUT A 
1290 läd)*A/100 

1300 PRINT "Y SPEED=*ü INPUT ft 
1310 Vd)=A/10 
1320 iEXT r 
1330 RER 

1340 RER DD FINAL SET UP AND BO 00 IT 

1350 REH 

1360 TRAP 100 

1370 GRAPHICS 23 

1380 GOTO 130 


240 Xd)=Xd)*UfI) 

250 CBLDR 1 
260 GÜSUB 110 
270 WEXT I 
230 HEXT EUER 
1000 REH 

1010 REH SET UP GAHE 

1020 REH KT NUHBER GF OBJECTS 

1030 REH 

1040 PRINT "NUHBBt DF DBJECTS’! 

1050 INPUT T 
1060 REH 

1070 REH HÖH SET UP HEHGRY 
10BG REH 

1090 REH I=CURRENT D8JECT 

1100 REH T= TöTAL DBJECTS 

1110 REH 6= PULL BETNEEh OBJECT I AND J 

1120 REH 

U3Ö REH G(I)> GRAVITY 
1140 REH Xd)» HORIZONTAL POSITION 
1130 REH Yil)= UBtTfCAL POSITIGH 
1160 REH U(I)= HORIZONTAL VELÖCITY 
U7Ö REH Vfl)= YERTICfl VELOCITY 




100 m BUBBLE SflfiT 

101 REH 

102 REH 
120 RE» 

130 Dl» A(100) 

140 REH 

ISO' REH . REABING NUMBER OF ITEMS TD DE 
160 REH . SORTED l DATA TD BE SORTED 
170 RER . 1NTÜ AN ARRAY 
ISO REH . ***************************** 

190 READ N 
200 FÜR B=1 TO H 
210 READ X!A(B>-X 
220 HEXT B 
230 REH 

240 REH . PRlHTlttS UNSBRTED LIST 
250 REH . ********************** 

260 PRINT "UMSORTED LIST“ 

270 FÖR B=1 TB H 
280 PRINT AIS) 

290 HEXT B 
300 REH 

310 REH . THE SDRT 
320 REH . ******** 

m FM)! REH mFLftSM IF NEEDS HÖRE SÜRTIN6 

340 FÜR 0=1 TO N-l 

3S0 IF A(CM)>»A(Ci THEN 410 

360 T=A(D!REH ***TEHPORARY RE6ISTER 

380 A(C)=A(C+1> 

390 A(E+I)=T 

400 F=1 

410 HEXT C 

420 IF F=1 THEH 330 

430 REH 

440 REH . PRINTINS SQRTED LIST 
450 REH . ******************** 

460 PRINT 

470 PRINT ‘SORTED LIST* 

480 FÖR B*1 TO H 
490 PRINT ßlB) 

500 HEXT B 
S10 RER 

520 RE» . DATA ITEMS 
530 R91 . ********** 

540 DATA 10 

550 DATA 9>1»5>10;4,7>2>8’3.6 
560 END 


1000 REH KARD 

1005 REH . BY H, LUHKE 

1010 REN 

1020 REH . TttlS PRüßRAH HQBIF1ES THE 
1030 REH . ETCH-A-SKETCH PRDBRAH SO 
1040 REH . TRAT THE JOYSTICK IS [BEB 
1045 REH . TO HOVE ARGUND A BOX» 

1050 REH 

1060 REH . VARIABLES 

1070 REH „ w£*icwi#* 

1080 REH . XSTEP O..ARRAY FOR X-ßXIS 

1090 REH . INCREHENTS 

1100 REH . YSTEP U..ftRftßy FÜR Y-AXIS 

1110 REH . INCREHENTS 

1120 REH . X,Y......X : Y COORDIN, 

1130 REH . 1,J.„INDEX VARIABLES 

1140 REH . S.VßLUE RETURHEB 

1150 REH . BY STICK(O) 

1160 REH 

1170 REH . SET UP INITIAL CDIDITIOH 
1180 REH . $*j»*iw**m*$£mm**«* 
1190 BIH XSTEP(20 )jYSTEP(20) 

1200 SETCOLOR 0.2,8 

1210 CßLDR 1 

1220 GRAPHICS 17*141 

1230 X=8öiRE(t ***STARTINS X LOCATION 

1240 YMOaREN mSTARTIffi Y LOCATION 

1250 REH 

1260 REH . SE7TINB UP ASflßYS FQR X k Y 

1270 REH . HOTOTS. SUSSCR1PS 

1275 REH . REFER TD JOYSTICK P0SIT10HS 

1200 REH , **^*m*«*«***i»m*** 

1290 X§TBM5)=1:YSTEP(5M 

1300 XSTEPi6)=1f YSTEP(6)--1 

1310 XSTEP(7) a lsYSTEP17)=Ö 

1320 XSTEP(9)a-1!YSTEP(9)=1 

1330 XSTEP ü 0)*~1sYSTEP(10)*-1 

1340 XSTEP(111ü-lsYSTEPI11)=0 

1350 XSTEP(13)=0sYSTEP(13)*1 

1360 XSTEP Ü4) =0; YSTEP (14) --1 

1370 XSTEP(15!=ös YSTEP(15)=0 

1375 GOTO 1580 

1380 REH 

1390 REH . TO TURN KARNINS BEEF OFF 
1400 REN . 

1410 SOUND 0,0,0,0 
1420 RER 

1430 REH . TE8TIN6 TRIGGER BUTTON. IF 
1440 REH . BUTTON PUSHED STARTS OVER. 
1460 REH . s*w****-i**jmt***ito**t***$ 
1470 IF STftIG(ö)-0 TUEN 1200 
1480 $*5TIBC(0> 

1482 REH . FOLLÖMiSE CftUSES A PAUSE SO 
1484 REH . BOX STftYS ON SCREEN HHILE 
1486 REH . RAITIME Tß HßVE IT 
1488 REH . m#*»#**********^*»*#* 



1490 IF 8=15 THE« 1470 
1500 REH . ERASING BOX SY SETTIH8 CHLOR 
1510 REH . Tß BACKGRB CQi.GR AND Q8AHIH6 
1520 REH . 8BX IN BACKGROUND COLDR, 

1525 RER . THE» SET BACK TB BOX COLDR 

1540 M ÖiREH ***TRY TAKIN6 OUT THIS 

1544 REH . LINE AND LINE 1880 

1545 REH . TO SEE KOK BOX IS 

1546 REH , NOT ERASED, 

1S50 60SUS 1990SREH *»T0 DRAN BOX 
1580 COLQR 1 

1590 REH 

1600 REH . DETERMININS INCREHENTS FOR X 
1610 REH . I Y AMD PLSTTINB HE» POINTS 
1612 REH . NULTIPUES BY 5 TS SPSS UP 
1614 REH . HflVEHENT OF BOX 
1616 REH 

1620 X*X*XSTEPtS)<tf:y*Y+YSTEP(S)*5 
1630 TRAP 1870: REH ***C1€CKI»6 OUT OF 
1640 REH . BGUNDS ERROR 

1650 PLOT X.Y 

1660 GOStIB 1990:RÖ! t»TO DRAN BOX 
1670 GOTO 1470 

1760 REH . THE FOU.SKTHG LINES ARE 
1770 REH . EXECUTED IF TRY TD HOVE OUT 
USO REH . BOWffiS NHEN DRAKIHG ON THE 
1790 REH . 5CREEN. THE LAST POINT IS 
1800 REH , HßVED BACK IN SOUNDS AND THE 
1810 REH . HARBINS SOUND IS ACTIVATED. 
1820 REH . THE FOR-NEXT LOOPS ARE USES 
1B30 REH . Tß GETERHINE LEHBTK OF KARN- 
1840 REH . IN6 BEEP U) AND CSUSES IT 
1850 REH . TU FAK IN EMTBNSITY (I) 

1B70 X b X-XSTEP(S)*5jY“¥-YSTEP(S)* 5 
leso ki^ics i7+i6): coldr i 

1900 FOR 1*15 TO 0 STEP -1 

1910 FOR J*i TO 3 

1920 AEXT 3 

1930 SW 0,136,10,1 

1940 HEXT I 

1950 GOTO 1630 

1935 STOP 

I960 REH 

1979 REH . SUBROUTINE FOR BRAKIRG BOX 

1980 REH , 

1990 BRANTO X*!Ö,Y 
2000 BRANTO X+10,Y+10 
2010 DRASfTO X,Y+10 
2020 BRANTO X,Y 
2030 RETURN 
2040 END 







1 REH DEMO 

10 GRAPHICS 24JSETC0L0R 2,0,0?COLOR UPLOT 0,0 
20 P=0* L-OiPl=3J 9:LI=191 
25 PS=1:LS=1;P1S=1SL1S=1 

27 FÜR CDUNTE8=1 TO 150 

28 PAKE 77,0 

30 DRAKTÜ PUsDRANTD PUliDRAHTß P.HiDRANTQ P,L 
40 JMiK=2 

50 P=P+PS<4(:L=1'H.S*J:P1=P1-P1S*K:U*LK1S*J 

60 IF P>319 THEN P=319:PS=-1 

70 IF P<0 THE» P=0:P9*1 

BO IF L>19t THBJ L*19l:LS“-i 

90 IF L<0 THEH L=ÜiLS=l 

100 IF PKÖ THEH PI=0:P1S=-1 

110 IF PI>319 THEN PI»319iPlS=l 

120 IF LKO THEH Ll=ü:LlS=-l 

130 IF Ll>191 THEN Ll*191iLlS=*l 

140 IF PTRIG(ö>=0 THEH GRAPHICS 24:5ETC0L0R 2,0,0:CDLBR 1 

150 FREß=4.16667E-Ü3* t (ABS (P-P1)> * t ABS(L~L1))I 

160 SOUND Ö,FREQ,10,15 

1TO PLOT P,L 

200 HEXT COUNTER 

210 GRAPHICS 24SSETC0L0R 2,0,0:CÖL0R 1 
220 GOTO 27 



1 REH SCROLLING 

2 PRINT CHM(125)!:LIST 
5 SETCOLffi 2,0,0 

10 FÜR X«0 T0 959 STEP 40 
20 GOSUB 190 
30 NEXT X 

40 FOR X=959 TO 0 STEP -40 

50 SOSUD 190 

60 HEXT X 

70 FOR X=0 TO 40 

SO BQSüB 190 

90 NEXT X 

100 FOR X*40 TO Ö STEP -1 
110 GGSU8 190 
120 HEXT X 

130 FOR X=0 TO 943 STEP 41 
140 SOSUB 190 
150 HEXT X 

160 FOR X=943 TO 0 STEP -41 

162 GOSUB 190 

164 HEXT X 

IGO SOTO 10 

190 A=X+40000 

200 B*INT(A/256> 

210 C=A-(B*256) 

220 POKE 39972,C 

230 POKE 39973,B 

231 POKE 54286,PEEKI16) 

232 FOR 0=0 TD 10:NEXT 0 
250 RETURN 


1 ? ’STARTIXB ADDRESS =MNPUT A 
10 GRAPHICS ÖJSETCOLÜR 2,0,0:IH) 

20 FOR H=A TD 65535 

21 IF PEEK(84)»23 THEH GOSUB 1000 

22 SETCOLOR 2,0,0 

30 ? “ADDf^SS "äBf“ 'fPEEKtlä) 

40 NEXT ttEND 

10W OPEN #l,4:0,’K:*iSET tl,ERsCLüSE 4HIF CH»I55 THEN BRAPHICb O 
1001 RETURN 



1 GfifiPKICS 2+14 

2?l6J?*6i" STAft »ARS THE«E' 

3 ? «Ü? S4;‘ H H. LüNKE* 

10 READ S,H0,Mt,M2.H3 
20 IF K0 S "1 TUE« STOP 
30 SDUKD O,NO,1Ö,4:$0UMD 1,«1,10,4 
35 S0UKD 2,N2,1Ü,4:SBM! 3,»3.10,4 
40 FOfi X=1 TO 5*200!«EXT XifiQTO 10 

100 DATA .3,103,0,0,0 

101 DATA 0,0,0,0,0 

102 DATA .3,108,0,0,0 

104 DATA 0,0,0,0,0 

105 DATA .2,103,0,0,0 

110 DATA 1,31,108,128,142 

111 DATA 1,3t,108,128,173 
114 DATA 1,53,44,81,193 
114 DATA 1,53,44,81,217 
120 DATA .3,40,Bl,94,243 
122 DATA .3,64,81,94,243 

124 DATA .2,72,81,94,243 

125 DATA 1,40,53,64,128 

128 DATA 1,40,53,64,144 

129 DATA 1,53,64,81,162 

140 DATA .3,60,81,96,243 

141 DATA .3,64,81,96,243 

144 DATA .2,72,81,96,243 

145 DATA 1,40,53,64,123 

148 DATA 1,40,53,64,144 

149 DATA 1,53,64,81,162 

160 DATA .3,60,72,91,182 

161 DATA .3,64,72,91,132 

164 DATA .3,60,72,91,182 

165 DATA 2,72,85,108,217 

168 DATA .6,108,0,0,0 

169 DATA 0,0,0,0,0 

172 DATA .3,108,0,0,0 

173 DATA 0,0,0,0,0 

130 DATA 1,81,108,128,162 
1S1 DATA 1,01,108,128,173 

184 DATA 1,53,64,81,193 

185 DATA 1,53,64,81,217 

190 DATA .3,60,81,96,243 

191 DATA .3,64,81,96,243 
194 DATA .2,72,81,96,243 
196 DATA 1,40,53,64,128 
190 DATA 1,40,53,64,144 
199 DATA 1,40,53,64,162 
210 DATA .3,60,81,96,243 



211 DATA .3,64,81,96,243 

214 DATA .2,72,81,96,243 

215 DATA 1,40,53,64,128 

218 DATA 1,40,53,64,144 

219 DATA 1,53,64,81,162 

230 DATA .3,60,72,91,182 

231 DATA .3,64,72,91,182 

234 DATA .3,60,72,91,182 

235 DATA 1,72,B5,108,217 

236 DATA .6,108,0,0,0 

237 DATA 0,0,0.0,0 

238 DATA .3,108,0,0.0 

250 DATA 1.5,96,121,162,0 

251 DATA 0,0,0,0,0 

252 DATA .5,96,0,0,217 

254 DATA .5,60,81,96,217 

255 DATA .5,64,81,96,217 

256 DATA .5,72,81,96,217 
258 DATA .5,81,81,96,217 

270 DATA .3,81,96,0,217 

271 DATA .3,72,96,0,217 

274 DATA .3,64,96,0,217 

275 DATA 1,72,0,0,217 

278 DATA .25,96,0,0,217 

279 DATA 1,85,108,144,217 

282 DATA .6,108,0,0,0 

283 DATA 0,0,0,0,0 

284 DATA .3,10S,0,0,0 

290 DATA 1.5,96,121,162,217 

291 DATA 0,0,0,0,0 

292 DATA .5,96,121,162,217 

294 DATA .5,60,81,121,217 

295 DATA .5,64,81,121,217 

298 DATA .5,72,81,121,217 

299 DATA .5,00,81,121,217 

310 DATA .75,53,68,91,136 

311 DATA .25,72,0,0,0 

314 DATA 2,72,SS,106,217 

315 DATA .6,108,0,0,0 

318 DATA 0,0,0,0,0 

319 DATA .3.108,0,0,0 

320 DATA 1.5,96,121,162,0 

321 DATA 0,0,0,0,0 

322 DATA .5,96,0,0,217 

324 DATA .5,60,81.96,0 

325 DATA .5,64,81,96,0 

328 DATA .5,72,81,96,217 

329 DATA .5,0,81,96,0 



340 DATA .3,81.96,121*217 

341 DATA .3*72,96,121,0 
344 DATA .3,64,96,121,0 
343 DATA .6,72,96,121,217 

348 DATA .3,0,96,0,0 

349 DATA 1,83,0,0,0 

352 DATA .6,33,0,0,217 

353 DATA 0,0,0,0,0 

354 DATA .3,53,0,0,0 

360 DATA .6,40,50,60,81 

361 DATA .3,45,60,31,128 

364 DATA .6,50,60,81,243 

365 DATA „3,53,0,81,217 

368 DATA .6,60,0,81,204 

369 DATA .3,68,0,0,108 

372 DATA .6,72,0,0,162 

373 DATA .3,81,0,0,144 
3B0 DATA 1,53,0,0,0 

381 DATA .1,72,85,121,217 

384 DATA 0,0,0,0,0 

385 DATA .1,72,85,121,217 

386 DATA 0,0,0,0,0 

3B7 DATA .1,72,85,121,217 

388 DATA 0,0,0,0,0 

389 DATA .5,72,85,121,217 

390 DATA .3,0,0,108,0 

391 DATA 0,0,0,0,0 

392 »ATA .3,0,0,108,0 

393 DATA 0,6,Ü,0,0 

394 DATA .3,0,0,108,0 

395 DATA 0,0,0,0,0 

400 DATA 1,81,108,128,162 

401 DATA 1,81,108,128,173 

404 DATA 1,53,64,81,193 

405 DATA 1,53,64,81,217 

410 DATA .3,60,81,96,243 

411 DATA .3,64,81,96,243 

414 DATA ,2,72,81,96,243 

415 DATA 1,40,53,64,128 

418 DATA 1,40,53,64,144 

419 DATA 1,53,64,83,162 

430 DATA .3,60,81,96,243 

431 DATA .3,64,81,96,243 
435 DATA 1,40,53,64,128 

438 DATA 1,40,53,64,144 

439 DATA 1,53,64,81,162 
450 DATA .3,60,72,91,182 


451 DATA .3,64,72,91,182 

454 DATA .3,60,72,91,182 

455 DATA 2,72,85,108,217 

456 DATA .6,108,0,0,0 

457 DATA 0,0,0,0,0 

458 DATA .3,108,0,0,0 
462 DATA 0,0,0,0,0 

470 DATA 1,81,108,128,162 

471 DATA 1,81,108,128,173 

474 DATA 1,53,64,81,193 

475 DATA 1,53.64,Bl,217 

480 DATA .3,60,81,96,243 

481 DATA .3,64,81,96,243 

484 DATA „2,72,81,96,243 

485 DATA 1,40,53,64,128 

488 DATA 1,40.53,64,144 

489 DATA 1,53,64,81,162 

500 DATA .3,60,81,96,243 

501 DATA .3,64,81,96,243 

504 DATA .2,72,81,96,243 

505 DATA 1,40,53,64,128 

508 DATA 1.40,53,64,144 

509 DATA 1,53,64,81,162 

520 DATA .3,60,72,91,182 

521 »ATA .3,64,72,91,182 
524 DATA .3,60,72,91,182 
SS DATA 2,72,85,108,217 
528 DATA 1,53,108,217,0 
530 DATA .5,0,0,0,217 
540 DATA 1,40,53,64.162 
542 DATA 1,40.53,64,173 
544 DATA 1,40,53,64,193 
546 DATA 1,40,53,64,217 
550 DATA 1,40,53,64,243 
552 DATA 1,40,53,64,217 
554 DATA 1,40,53,64,193 
556 DATA 1,40,53,64,173 

558 DATA 1,40,53,64,162 

559 DATA 0,0,0,4,0 

560 DATA .1,40,53,64,162 

561 DATA 0,0,0,0,0 

562 DATA .1,40,53,64,162 

563 DATA 0,0,0,0,0 

564 DATA .1,40,53,64,162 

565 DATA 0,0,0,0,0 

566 DATA 1.7,40,53,64,162 
600 DATA 0,-1,0,0,0 




5 S05ÜB 500 

6 DREH #1,4,0,“Ki"s0IH A$t80i 
20 ED=>10 

40 EM3H:IF EQX> MN 45 

41 GRAPHICS 17:GöSUB 5OO:S0UNf> 0,50,80,15 

42 FÖR C=! TD 45PPINT #6S*«8-t , Y6FT^54ö7D839tö!«tl3J]ai?????:“¥#4WJHGZIMe : DSi(K’JNEXT C 

43 FOR TM TO 1500s«EXT TT:SOUKD 0,0,0,0 

44 GRAPHICS OsfiOSUB 50ö:PRMT »FOR 1=1 TO 5sPRINT 'SYSTEM JUST RECQVERED FROH A CRASH’sKEXT IiEß=lO 

45 A4=*'spRl'HT :PRIKT ■READY* 

47 TRAP 45 

50 FOR 1=1 Ul SOißET #l,fi:lF M55 THE# 65 
55 PRIKT CNRf(A)nAtOBI(A»>+U4Mtt(ft> 

60 HEXT I 

65 IF LEN(A*)<7 MH ASdEKIAtHlM *:GÖTB 65 

67 IF A4(5,6)='8:* SR A$(6,7>= a D!' MH TRAP 1600) OPER 12,4,0, *0^2* 

70 IF AifMMRUN" TUEN PRIKT sPRIHT ,*PD RATHER SAtK'sSÖTO 40 

SO IF A4(M) a 'LIST* THEH PRINT SPRINT ,*I EON’T FEEL UP TO IT'sSOTD 40 

90 IF ASKMMSAVE" THEH PRINT SPRIKT ,"I ÜBS’T LiKE BÄ#IKS D seOTO 40 

100 IF A$Ü,4!= ,, LDAÖ B THEH PRIKT SPRINT * HICÜ WC! I’H AL8EADY LOADED'iSOTO 40 

107 IF A$(1,5)="HELL0* THEH PRINT JPRUfT , "HELL, HI TB YfXJ TOB!'sGOTO 40 

110 IF A4U,3)=W MN PRINT sPRIHT ,"YES, TH QUITE HEM’sGOTO 40 

120 IF fi*U,3i= s CAT' THBI FRIST SPRINT ,"TRY SEARS, ROEKJCJC":SOTQ 40 

130 IF ASfMMCONT" MH PRINT :PRIKT • HE NEYES STÖPPEB? , {GOTO 40 

140 IF MU,3)> a DEL* THEN PRIKT sPRIHT ,*0X THE ENTIRE DI8K'"i7MP lOÖOißPEN #2,4,0,’DsXYZ’ 

150 IF A4(1,4)="STOP" THEN PRIKT iPRINT ,’THE FUH IS JUST STAR7ING!"sGÜTD 40 
160 IF Atü,3M8YE" THEN PRIKT SPRINT ,"N0, VOU CAN’T LEAVE K0H!*:6ßT0 40 
170 IF AJIMMNISHTHARE* THEH GRAPHICS ösTRAP fiOösRUH ’DsHENU.Wä* 

ISO IF A$Ü,3)=*E)JD* TUEN PRINT MUHT a BÖ DIRECTLY TB OAIL BO KOT PASS GQ'sßOTÜ 40 

200 IF A4ü,3)='OOS» MK PRINT SPRINT VI - 6‘iSBTB 40 

250 X*INT(RH8ü)*6*l)iDl( X GOTO 300,310,320,350,360,1020 

300 PRIKT SPRIHT “ERROR - «sASü“ ■sGflTO 40 

310 PRIKT s PRIKT ,‘DöES NOT COHPUTE’sGÖTD 40 

320 PRIKT SPRINT * I SOTT UNTERST AND TRAT CßMBHD'sGOTO 40 

350 PRIKT SPRINT ,“BH KD !!!!! Jü !‘!!! !"s6QTfl 40 

360 PRM SPRINT ,'BAS CUKKAN8 'STUPISMODTC 40 

500 PAKE !A,64iFÜK£ 53774,A4:POKE 530,1 

510 RETURN 


600 GRAPHICS U? #6:? MsPfilHT 46)'BOSS SYE YUÜ’üPRIÄT #6t B DIP STICK“sNEW sEKJ 


1000 PRIKT :«MT " 

1010 SOTD 40 

1020 PfilWT sPRIHT 'ERROR 



HEAD CRASH OK BRIYESl":? ' DISK DESTRÖVED" 
- 17"sGOTO 





1 REH SUCHLISTE 

LÖDIH T«»J,TT«301,«(ZO),Ä»(2W»K(10J.CC»HW.»(li),MU4),EI(n,TLIfÄi 

15 ft=S=Z»ZZ*öiF^RE(O)i0*- ,, Di8OI)KUST.DAT"iPK=PEiai95) 

20 ? '}*:? 3 w^m******" 

21 ? * *** BööKUST **«" 

22 ? * ***#a««#w>*$*4* 

25 ? “ Do /du wist to Start a HEM toetme (Y or BJ'üTRAP 20s? "'"filltfUT Ei 
30 IF E*(M)a a r TKEK GOSUB 2600 |§J ^ o 
32 !F £t(MK>"N" THEH 20 

35 ? s? " Enter ajwostinate * of books in rour librar»‘i:TJ»P 35i? "•'"jrlNPBT B 
JO HB&QK-B+1000 

"SO ? ■}"!? ■ SELECT CHOICE»:? 

55 ? “ 1 List ALL books" 

60 ? * 2 List br TITLE’ 

65 ? * 3 List b* AUIHÜR* 

70 ? ’ 4 List bi CATEHKY* 

75 ? ■ 5 Book EWTRy/CHAUßE’* 

tty b ENZJ“; s? * ’j / 

SO TRAP 50i? ■'■SSIMPUT AUF (Kl QR fl>6 THEfi 50 
90 Z*ö:lF A»5 THEH 1000 
95 IF A*6 THEH EH0 
100 DPEfi 61,4,0,B$ 

HO 0H A 6SSUB 500,600,700,80!) 

120 CL0SE 81:? :? »Press RETURN für *emT y 
ISO TRAP 50i? "•'“JJIMPUT fKKlit / 

500 ? "Do * 0 u uant a PRINTE8 list of all books (Y or Nl’üTRAP 500t? "•'"JSltff’UT B* 

505 ? » ALL BOCKS" 

510 IF THEH 60SUB 550 

515 IF »(MIOTT THEH 500 
520 FQS 1=1 TEt NBOOK 

525 TRAP 545:INPUT 81,BSN,BN,T*,A$,C*,TL* 

530 IF T«>"* 8 THEH ? s? DS& VSBN.T*:? ■ 

540 HEBT I 
545 RETURN 

550 LPRIHT " ALL SGÖK5" / 

555 FDR 1*1 TO NBQOK 

560 TRAP 5SOJIHPÜT M,®SW,BN,T9,A*,C*,TL* 

565 IF «<>"*" THEH LPRINT :LPRINT TJtlPRIHT ■ 

575 HEXT I 
500 Bi=“N"tR£TÜftJi 

\600 ? "J*3? 3 Hhat is the TITLE of th« book you «nt listad’JSTSAP 600:? "'"lUNPUT TT* / 

605 FÜR I«! TO NBODK ^ 

610 TRAP 635ÜHPUT «1,B8N,8H,TM**CJ,7LS 
615 IF T*OTT* THEH 630 
620 ? KMlVlfifeT» 

625 ? * "iAtiCi 
630 HEXT I 
635 RETURN 

A7ÖÖ ? ■)":? " Uho is the AUT HÖR of the bookls) vm uant iisted (LAST nas», FIRST naae)":? "'"üINPUT AA* 
702 C=ASC(AA*):IF C<65 OR 090 THEH 700 
705 FÜR I*i Tf! NBUOK 

710 TRAP 7355IHPÜT 8J,9SN,BN,TMt,CS,TL* 

715 IF ASOAfi* THEH 730 
720 ? :? DSHJ Vs6N,Tt 
725 ? * "JA*,Üi 
730 HEXT I 

Ä 735 ? :? " Do you »ant a PRIHTED list of this aut hör’s booksiY or »rcTRAP 735:? ■''"iUHPUT B* 

737 IF B*U,1)«"Y" THEH CLÖSE IKOPEN 81,4,0, B*:B0St!B 730 
740 IF B*(MX>»M» THEH 735 
745 RETURN 




750 FQR 1=1 TS NBOOK 

755 TRAP 775: iWr li,D5N,SN,T*,A*,CMU 
757 IF ASOftAt Tt€W 770 
760 LPHINT :LPRINT TS 
765 LPRINT ' ■;«*,« 

770 BEXT I 
775 RETtföN 

V 300 ? Ts? ü BELECT CSTEGSRY OESIRED’s? iMißDSUB 1050 
820 POSITIOH TRAP 800:? “'"üINPUT AUF A<1 08 A>15 THE« 800 
325 OB A 5QTD 0,832,834,836,638,640,042,844,646,048,850,852,054,056,858 
830 CCS^ftOVENTURE’: 6BT8 860 
832 CE<*"CLA5SIC l ‘sfiOTC 860 
834 CCS^eOTKIC^SOTC 860 
836 CC*="HYSTE8Y":flßTQ 860 
038 CC$= B St:i FIMGffra 860 
840 CC$= u HESTERÜ":SflT0 860 
042 CK* B BßVEf:GOTO 86Ö 

_844 CC^ B aia!CMM B iBOiß 860 

846 CC$= h CWÜT£H'!EQTÜ 860 
843 CC$="HABBYBAH , ‘: 6ÖT0 060 
850 CCS= B TEXTBOOK“s BOTO 860 
052 CE^“ftEFE!eCE’:SaTO 860 
B54 CC^"POETRrsGOIS 860 
656 C£? S *KÜHF 3CTI0B":GOTO SSO 
858 EC^-OMR“ 

660 ? :? CCS 

865 FßR 1=1 TO fißBOK 

870 TRAP S95SINPUT ti,mBMt,M,CI,TL4 

075 IF CSOCCS Tfe 690 

SSO ? :? »SHfVsBN.TS 

BBS ? * "iAS.CS 

890 HEXT I 

x 895 ? :? "Da iw aast a PRIKTEI) list nf this cate?ary(Y ar »>"SiT8ÄP 895:? IMPUT B» 
697 C=ASCi8tJ:lF C<78 019 THEN 895 

900 IF MH CLOBS «liflPEN #1,4,0,BfcBÖSUB 910 

902 IF «MUtOU' Tie 895 
905 RETURN 

910 FOR 1=1 TO W0BÖK 
915 TRAP 40000 

920 TRAP 940: IHPUT S1,3SN,BH,TS,A$,CS,TIS 
922 IF CSOCCS MB 935 
925 LPRINT :LPRINT TS 
930 LPRINT 1 ",AS,CS 
935 HEXT I 
940 BS= s N’:RE™>! 

\ 1000 ? "}*:? - w sa von NAHT Tß DG?* 

1012 ? ■ I Hake REN «itrs 5 

1014 ? " 2 CHANGE mstins data 9 

1016 ? E 3 RETURN ta HEHli” 

101B ? :? " "JURAP lÖOOi? ■'■lUIWT A 

1020 IF A<1 CR A>3 MN 1000 
1030 IF A=2 TKEK CLGSE «1:6019 1300 
1035 IF A=3 TUEN ClflSE il:S0T0 50 

1040 ? Ti? :SJPEN #1,9,0,114 S-A. 



1050 ? " 

1 ASVENTURE 

9 CQHPUTER“ 

1052 ? “ 

2 CLASSIC 

10 HAN0YHAN* 

1054 ? 8 

3 GOTHIC 

11 TEXT»" 

1054 ? * 

4 HYSTE8Y 

12 REFERENCE" 

1058 ? 11 

5 SCI FI 

13 P0ETRY* 

1040 ? ’ 

4 WESTERN 

14 BÖS FICTIOW" 

1042 ? " 

7 HOVEL 

15 DTHER’ 

1044 7 * 

8 COOK»*: 

IF 2=1 MN RETURN ,/ 


1070 POSITION 2,12 

1080 ? "Enter TITLE'f:? "'*f:MiIT TS 

1070 ? :? "Enter AUWS NAHEUast^fIrst) B :? ""üINPUT AS 

UOÖ ? :? "Ester » ef CATEGGRYMra« abüvePj:? "'’IUHPUT CCS 

1110 IF CC*=M' TUEN «s n M>VEKW:SQT() 1140 

1112 IF CC4**2* TH» ««"CLASSIC" :60TÜ 1140 

1114 IF CCS=“3* MH «»"GOTHIC *sß0Tß 1140 

1114 IF CC$**4 B MB CS=“«ySTE5?¥*i60T0 1140 

1118 IF Ctt»"5 B THEH M="$EI FI":BOTD 1140 

1120 IF C«=*Ä* MB CfMMSIERN'tSÜTlI 1140 

1122 IF CC0**7* MH C^“ROVEL" sBaTO 1140 

1124 IF C«= B B* TH» CS= a C0M£800K B :SDT0 1140 

1124 IF CCS="9* MH «= B CQHPUTEH"iGÜTB 1140 

1128 IF C«="iO* THE« M= n BftN0YrtAN":SÜTG 1140 

1130 IF CC$=”11’ TUEN «=*TEXTBOIBC*äGÖT0 1140 

1132 IF CCS“* 12“ MH C$=*REFERBfCE B :63T0 1140 

1134 IF CCS““ 13* MH C$“ fl POETRr;GÜTfl 1140 

1135 IF CCS“" 14* MH «="SfBSiFlCTH]!S a :68TC 1140 


1134 IF CCS“* 15" MH CS“"0T8ER*sBBTD 1140 , 

1137 GOTO 1100 

1140 TRAP 40000:L*40-(l»(TS}'HL»(M)U»(£SH 
1142 TL$=** 

1144 FDR 1=1 TO L 
1146 TLS(M)=V 


1148 HEBT I 
1150 BOTE 81,DSH,BH 

1153 ? «IföSN 

1154 ? Sl;SN 
1154 ? 81ITS 

1157 ? SU AS 

1158 ? SU« 

1159 ? 41;TL* 



/ 1140 ? :? *0o yoii have another entry to wate (V or N>"U? ""JUHFUT » 

1170 IF fltfl,lI= H (I* THEI4 CL05E 11:GOTO 1000 

1180 IF BSIMKPY" MH 1140 

1190 POSXTIGK 2,12:FÜR 1=1 TO 11 

1200 ? isfiQTQ 1070 ; ’ : 

1300 1 "Enter the file 4s of the entry you eant to chan«. H you dvs’t Itnon these miabers, 
1302 ? * trne JEHÜ, nrsss RETlffiJiand list the book to find thes." 

1310 TRAP 50:? "'UslHPUT MSH,BBN 
1315 GP£M #1,4,0,D$ 

1320 FÜR 1=1 TD HB0DK 

1330 TRAP 138ÖUHPÜT ii;5SN,8H,TMS,«,Tli 
1340 IF DS8=DDSN AHO 9K=8BK THES 1340 
1350 HEXT I 


13M ? :? DSfcViM'T* 

1370 ? " "?A«,C« .. "" 

1330 CLOSE SüTRfif 40000 

1385 ? :? "Da you nant to chansetC), delete(D) or du nothinilfO to tbis entry"|iTf»P 1385*? "•'"HINPUT Bi 

13?ö IF BSUjl)='H*^TKf) CLOSE il:60T0 50 

1400 IF B$(i,l)= u C1?T!tEN OPEN #M2 f Ö f 0$i60TD MIO 

1403 IF 0t(MK>"8*7T{O 1305 

1405 OPEN il»i2 ; Ü,Gi:T4=“*'5AJ=""sC£=“"s6OT0 1415 

1410 ? :? "Ent«- NEU title"::? B ' , ::l)gfHJT Ti 

1412 ? “Enter AUTHOfi’S NAHE(last.first)":? "'“SJlNPöT AS 

1414 ? "Enter CÄTEB3RV 11 ;s? "'"ssIWPDT CS 

1415 TLi= Ha 

1420 TRAP 4Ü0ÖÖS L=60- 1 LBt(TS) HBKAS) ^LEN(CS)) 

1422 FDR 1=1 TO L 
1424 7L*(I,I)«V 
1424 NEW I 

1440 TRAP 1440:POINT il,DSN,SN 

1450 ? II: DSU 

1452 ? «ISBN 

1454 ? IlsTS 

1456 ? «IfAS 

1450 ? 11;« 

1459 ? #11 TL« | , 

1460 CLOSE iltSOTD 1000 

1999 END 

2000 ? "If y oh stert a ne» File, rni »ill ERASE all tbat is ln rour current B00KUBT file. To ' 

2001 ? "start a ne» falei type rtfftt z.111, To return to tbe nrowa* »ithout startin» a ne» fil#, *: 

2002 ? " type tmn.* 

2003 ? :? ^ 0 ::liaiT SS 

2005 IF B$= a R£TEjf!N" TUEN RETURN 
2010 IF E*="CREATE FILE" TUEN 2030 
2020 6070 2000 

2030 OPEN tJ,g,0>3D«sCLSS£ #3:? ■}‘sES= # N u :ftETiJälN 


! REH HETEÖR 
2 REH 

10 GRAPHICS 0:DPEH *1,4,0,*Si‘:SETC0LßR 2,0,Ö!BIH HPi(l ( n,S»(;):Stll)=CHRS(26):Si(2)= , V , :SH3)=C(«*(;)iPOKE 752,1 

15 DIN NETEORSÜ):H£TEORS=CHRt(205:OPEN *2,4,0,"K:":? -INSTRUETIOWS?“!:GET I2,A:IF A=89 THEN 400 

16 GOTO 500 

20 X=19:5C=0:B=0 


30 D=I(fT(&71000):SETCOLOR 2,B,0:SETEOLOR 4,D,0:FQR 1=0 TO D:PQSITIBM RND<1)*38,23:? KETEORtüMEXT H? 
40 POSITION X,0:FOfi 1=1 TO 3tSET Dl.LMF L=20 THEN POP :GOTD 100 
45 NEX7 ItPOSITIDN X,*i*9* 


50 SOSC+ÜPflSITIEM 5,0:7 SCüPOSITIDN X.üä? S$ 

70 P=STICK(8);1F P>8 AND P<12 AND X>Ö TUN X«X-I 
75 POKE 77,0 

80 IF P>4 AND F<8 AND X<36 THEN X=X+1 
85 IF P=14 THEN 200 

87 IF STRIG(0)=0 AND 6=0 TUEN C=X+1:V=14:B0SII6 300 

88 IF 800 THEN SOSSJS 300 
90 GOTO 30 

100 IF G>0 THEN POSITION C.B-H? * "! 

105 POSITION X>0:? ’ “? !L=X:R=X+2:C*X+ltPOSITION 5,0!? SCJ 

110 FOR y*l TO 22!L=L-liIF L<0 TFEH 1=38 
120 R=R+1UF R>3B THEN R=0 



130 POSITION LYs? CHRJtaiJüPOSITION C,Y:? "VüPOSITION R,Y:? OW{35iJ6Ö5UB 700 
150 POSITION LY:? ■ "fspQSITION C,Ys? " "^POSITION R,Y: 7 * *: 

160 HEXT V 

170 FOR 1=0 TO 3:SOUND 1,0,0,OsNEXT ÜIF SC>HP THEN 600 

173 POSITION 6,5:? "OVER ALL HISH SCORE RAS“ 

174 POSITION 6,8!? »SKIP NITH 5278 OK 13/6/81* 

180 POSITION 5,0:? "CURRENT HIGH SCORE: ";KPSi*:"5HP 
185 POSITION 1,12:? "YOU EARNE3 “SSC:“ POINTS 0N THAT HISSIDB , !!POSmON l.WGQTD 480 
199 END 


200 8=0:SÖUND 0,1,0,14:SOUND 1,0,0,0 

210 SETCOLOR 2,S,14:SETCULGR 4,D,14:FÖR 1=1 TÜ RNDf15*66+9 

220 P05ITIQH 8NDü)*3S,23:? HETEßRt:HEXT I:SETCOLOR 2, D,üs SETCOLOR 4,D,0!S0UND 0,1,0,6:GOTO 30 
300 SOUND 1,25,4,V-V*(V<0):V=V-l:IF G>1 THEN POSITION C,ß-l:? * "! 

305 G=ß+1:IF S=24 THE« 340 

310 POSITION C-GiSET *I*LiPOSITUM C,8:? Cföt*lL)::IF L=20 THEN 330 

315 POSITION CtEHsßET «1,L>POSITION C,6-Ii? CKRStLÜIF L=2Ö THEN ß=B-l!BOTO 330 

320 POSITION C»B*? CHR4(124);:RETÜRN 

330 FOR 1=90 TO 0 STEP -5:SOUND !, MO, 14:HEXT I 

331 3C=SC+löö:POSITION C,G:7 ‘ß^FOR 1=1 TO 10:NEXT I 

332 POSITION C,S:? VüF» 1=1 TO 10ÜOT IsPOSITION C,fi:? 

335 FOR 1=1 TO 10:KEXT ^POSITION C,5:? * M 

340 G=0:RETURN 


400 FOR 1=1 TO 24:POSITION RNDU)*38,23:? HETEORtOOT I:? »*** H E T E 0 R S ? 0 R H **** 

410 7 "BY ROY HARPER":? :? " Your ei seian is to blast a path":? "throtrth a severe Reteor Store. You* 

420 7 ’are able to steer left and rieht witfi':? *the Joystick. Your aission also*:? "includes destmine eeteors.* 
425 7 " (at 100 Points each!)" 

430 ? * Line ymirself up with a «eteor and*:? Vess the fire-button on the Joystick.°> 

440 ? ■ ßnotber feature of your siiie is its ahilifcy to enter Hyeerseace. Press*:? “fornard on the Joystick'! 

450 ? * to do this.*:? »A Mortl of caution, bei ns in Hiaersaace does oot add or subtract fr« your* 

460 ? "score. It «ay even 1 and you in a":? “aeteor!":? * One final iwte! for each 1000 Points you ßcore,') 

470 ? - the saae becoses eore dif-Heult.*:POSITION 15,23:? "Sood Luefc!!!* 

480 IF STICK(ö)=15 THEN 485 
485 POKE 77,0 


488 ? :7 »Pull BO on the Joystick to alay..,*! 

490 IF STICKiGXM3 THEN 490 

500 SETCOLOR 2,0,0:SETCOLEW 4,0,0:? CBR*U25):SOUN0 1,0,0,0:FOR 1=255 TD 1 STEP -1:SOUND D,I,0,6iNEXT ÜBOTO 20 

600 ? CHRX1255S* CQNSRftTULATIGNÜ !,* 

601 ? »YOU GDT THE HISH SCDRE OF":? SC:* POINTS.“:? "ENTER YOUR NAHE PLEASE'üINPUT HP1:HP=SC:G0TQ 4B0 
700 FOR 1=0 TO 3:SOUND I, RN0Ü 5*255,2*1+2,14-Y*14/22:tEXT I:RETURN 



1 REH FUNKER 

2 REH 

3 REH 

£0 IN£7=5000:GOTO MT 

20 FÜR I=N1 TO 500* HEXT ?:RETtffiS 

50 SOUND NMMO,12iFOR J=N! TO X'.HEXT JiSOOKB NO>JiO>SW,NÖäFßR J=Ni TO Xi HEXT J 
60 RETURN 

70 mm N0^0,£0a2:FQR J=H1 70 TMXY JiStlUKS HO,MO,HO,MOiFOR M\ TO KiHEXT i 
SO RETURN 

90 L=LEN(A$MFöR I=N1 TO LiR$=A$(M)!£F 8#=*L' THEH 6ÖSÜB 50 

100 IF RS='3 a THEN SßSÜB 70 

liO HEXT £:RETURN 

120 ? :? :? iSOSÜß ÖflIT 

13Ö RESTGSE 6050 

2£0 FÖR fi=Nl TO K 

220 FGR K*N2 TO INT£N64fiHD(fil!)+N3 

230 CD=mimß$ft«D'Nl>+44))*10 

2« IF CO570 AHO CC<630 TUEN 230 

250 IF CC=640 MN 230 

260 IF CC"450 TUEN 230 

270 SÖSÜß It 

280 SÖSUB SEND 

290 IF PC=*1 TUEN ? CHRSfCC/10)S 
300 FOR I=H1 TU TCMXT I 
310 «EXT K 

320 IF Ct=320 TUEN 6020 
330 ? :FOR B=N1 TO TGÜOT 0 
340 HEXT S 

350 POSITION N4i22i? "Hould you Me to stop? (Y/NfiPflSITIQN 16,23:PAKE 752,!£ö;IHPUT 24 
360 IF T m END 

370 PCXE 752,Hl:? “J"sfOSITIDH H2,N4i? "Nould you Me to charrae data? (Y/N)"iPQSITSON 16.R5 

380 PÖKE 752,HösIMPUT 73UF 2S="Y B MN ? ■S'iPOKE 752,NIiGOTO 5040 

390 GOTO IBENT 

440 A4= , 331133*rf£TURN 

460 ft*=“13i3t3“sRETUSfä 

470 A^mi^RERM 

480 ft«=“33333 B s3ETyRH 

490 AS=* 13333® :RETtSN 

500 A8= E U333°sRETURa yf~ —- 

510 Öl=" 11133": RETURN / ( [\ 

520 A^ims’iREnsiN 

530 AS=*llUl':f£TtM HSlrtt—iL 1 X 

540 A^mrsRETiKN ! 

550 ft$=“33H2*sRETl®H 

560 A0="3331t a ifETliRN ?-7‘y je*' Jag? 

570 A*="3333r: RETURN ffTTKM'' 

630 AS= "113311 *: RETURN fff //jjp 

660 A4=“3lll’:RETURK \ // 

m W*-3131‘*aETUM 

700 A4=*li31": RETURN V C 

710 A$=*331 , E RETURN \ 

720 As= n mr:teuNs ^ ^ 





:ä. 




730 ft$-“3!“ifiETüRH 
790 A$='333":RETURN 
800 ftt="1331 B :ftOTÜRft 
810 At=*3313’iR£TUia 
820 At="131 a :ftETÜR!t 
830 OS^m-ifiETO 
S4Ö At=‘3 a :RETURN 
850 AS= C 113":RETURN 
860 S$="m3’!RETURH 
870 Af 3 "133*:RETURN 
880 AS=*3U3“i3£nEiN 
B90 At="3133'iRETURN 
WO «=»*3311'»RETURN 
910 flt-"33333™ s RETTJRÜ 
920 ftt=*l3333":RETURN 
930 fit*'11333":RETURN 
9« A^'U^'MTURN 
950 A$=*im3‘5R£TURN 
960 Af> a UliriREniRN 
970 fit= a 3mr;RETOI 
WO A*="331ir:J?En)R» 

9» flt= fl 333irs8£TUft8 
1000 A$= a 33331 B :RETURN 

5000 CLft :R0=ö!M=l:M+«2:PiSKE 752,KU? "l'iBIH fit(6),ZtIHl>,R$(N!IsHAIT=20;IDENT=6ÖÖ0:PRAO120»SE«B=90 
5Ö05 N3-N2+N1: N4=N2H'2: ffi=N3t»2s K6*lßtN3 

5010 POSITION 13,N2i? 'CQBE PÄTICE 1 :POSITION 13,N3:F0R I=Ni Tö 13*? CHRM13)}iNEXT Is? :? 

5020 ? ^ Thi s prnsraa Hill Pravide ratidoe 's? “srmips of ende (2-7 characters Ions).* 

5030 ? * Ttay Hill inelude letters, fisures, 'and <am nmictuatiaa, but not barred'i? "cbaracters. 1 

5040 POSITION N4,15s? E Ho» aani woiips would you likeT'iPDSITIOff 16,16iP0£E 752»K0slNPÜT N 

5050 PöKE 752,NU? POSITION «4,84-'? "Do fom want to see tfiea? fV/KJ"!POSITION 16,N3:KKE 752,1*0:JWHIT 2t 

5060 PÖKE 752,1:? “J'iPUSITION 2,4s? “öhat spesd wmlli you liks (3-20 BW?*: POSITION I6,5:P0KE 752,051^)1 S 

5070 IF Sflß GR S>20 TUEN 5063 

SOSO PC=Nßs IF n~ u r TH£ti PC-Nl 

5085 EF PC=Ö THE« PÖKE 752,1 

5090 ? °>“:K*34:M*N3:TC»#öiTINi05lF S=3 TUEN TC=I 70: TG*i0201BOTO JBEKT 
S100 IF S=tä4 TO TC*13ö:T6=750:SDTß IDENT 
5110 IF S=fS5 TUEN TC=i02:TS=6i2:SBTO IDENT 
5120 IF S-N& TUN TC-S5iTfi=510 : SOTO IDENT 
5130 IF S=7 THE» TC-73:TS=43S : 6GT0 IDENT 
5140 IF S=B TUEN TC=64:TS-382:SDTO IDENT 
5150 IF S=9 THE« TC*37:TB-340:ß0TD IDENT 
5160 IF S-10 Tie TC=5l!TB=306:eCT0 IDENT 
5170 IF 5=11 THEN TC*46sTß=275:SÜT0 IDENT 
5)80 IF S~I2 Tie TÜ*42*TS«=255iBflT0 IDENT 
5190 IF 5=13 THE» T?>39 s TS“235 s SOTO IDENT 
5200 IF S-14 MN Tf,=36:Tß B 2I8:88TQ IDENT 
5210 IF S=15 TUEN TC=X:TÖ=T*IJ2:63TD IDENT 
5220 X=3Ö,5:T=}i*N3 

5230 IF S=16 TUEN Tt>34:TB»205iGOTö IDENT 
5240 IF 5=17 THE» TC=32:T6=193:GDTß IDEHT 
5250 IF S=1S MN TC=X:TB=»T*M2iBOTD IDENT 
5260 X=27iT=X*N3 

5270 IF 5=19 THE» TC-29iT&»l?OsBOTO IDENT 
5280 IF 5=20 THE» TC=X:TG=T*N2:8CT0 IDENT 
6000 REfifl CCÜF CCM TREU GOTO PRAG 
6010 8ÖSU0 CC:60SUS SEND 
6020 IF PC=Hi TUEN ? CHRNCC/IO); 

6Ö30 m I»M TD TCiNEXT I 
6040 fiöTD IDENT 

6050 DATA 600,690,320,680,650,500,720,700,320,810,820,860,320,800,830,690,320,730,780,-1 



1 ? ' I oder X Spiel er"IKPÜT PMIH A(199}:fi3=PP 

2 ? 'S-STDFEtA-lO) ■JiIÜPUT HD 

3 BPAPH1CS 85 SETCOLOH 2,0,0 

4 COLOß 1 

5 E=0:l=5 

6 0=20 



7 IF S>2 THE« 9 

8 F=U:IF BG(7 THEN F=2B 

9 FOB M TO (310/(Z*M)) 

10 IF PP=G THEN DB=O0tiJft=fl(B8):fiDTD 12 

11 A = I»T(RNBtö)*80):8D=Dß+l:ft(M))=A 

12 TRAP 20 

13 IF DR E“A<~20 THE» 10 

14 IF A<=1 THEH 10 

16 R-R+l 

17 IF R=1 THEH PLOT L,fi:ß»=fl:6070 20 
Iß PLOT L-»ß,E 
2ÖBRASJTÖ L, flsURftüTO L+H8,A 
21 IF R=1 THEH PLOT L,ft-l!eH=ft:60T0 24 

23 PLDT L-»fl,E-l 

24 DRAHTO L, A-l sDftMSTO l+HMM 

25 TRAP 30 

26 IF R=1 THEH PLOT L.fi+DiGDTO 30 

27 PLDT L-Hfi,E+ß 

30 BRASfTD L,A+D:DßAHTO L+HÖ,A+B 

31 IF R=1 THEH PLOT L.A+B+UGÖTQ 33 

32 PLDT L-Hö,E+D+l 

33 DRAHTO L,A+D+l:DRfiHTß L+H0,A+D+1 
35 E-fi 
40 L=L+2*HB 
50 NEXT T 

60 FÜR T=1 TD QN+10 

61 TRAP 70 

65 CÖLÜR öiPLDT 2,M 
70 DOLOR lsPLOT 2,T 
SO HEXT T 

85 V=T 

86 TRAP 40000 

90 IF STftlGfOM THEH 90sGOTO 95 
95 S“l:fc3 

100 HNSUF ff=313 THEN 1000 
186 IF STICK40)=14 THEH V"V-1 
107 IF STICK(0)=13 THEN V=V+1 
198 IF STRI6IÖ]~Ö THEH 8=0,5 

189 IF STRIS(Ö)*1 THEH S=1 

190 09=09+1:PLÖT H,Vs TRAP 5000 

191 LDCATE H*1,V,J1(L0MTE R,V+1,J2:L0CATE R,V-U3:TSAP 194 

192 LDCATE H+2,V,J4:LDCAT£ H,V+2,J5:L0CATE H,¥-2,J6 

193 SOUNO 0,0,0,0 

195 IF 01=1 AHB J4=l Oft J2=l AHO J5=l ÖR 33=1 AND J4=! THE» SOUND 0,10,10,I0*TH«TH+1 

196 ? D9,TH,10Cö-D9~VH*4,KLÖ+1 
200 GOTO 100 


5000 ? "SPITZE* :KLQ=!ßGÖ-D9-TlM 

5001 IF PPM THEH PP=0 

5002 IF STRIS(0)=0 THEN A=OiR=0:M=0!Jl=ösJ2=ö:J3=Oi34*OiV=ö£DD=Ö:TH=OUW=0(BOTO 5010 

5003 GOTO 5001 

5010 G3=G3-!tIF G3=Ö THEN RUM 

5011 GOTO 3 

6000 5T=0.5:R£TURB 
7000 ST=l:RETUSH 


5 POKE 93.39 

9 OPEN 41,4.0,MC* 

10 CU :ö=ö:01=1:02=2:03=3:04=4:05=5:010=05+05 
20 ftD=PEEK ü 06)*256-322 

30 DIN T*(3).W(7),H(35>.»t4).S(4.12t.TH,l2) 

35 GRAPHICS 0 
40 BOSUB 4000 
45 GDSUfi 1600 

50 GRAPHICS öiSETCOLÜR G2,11,G2:S£TC0LDR 04,15.91+05 
55 FOR 1=0 TO 4*.NU)=0:MEXT I 

70 ? * Suwber oT BdLERS ü-4) *i:6ET tl,PL:PL=Pl-48ilF PL<ßl DR Pl>4 TREU 50 
80 ? sfÖR 1=01 TU PL 

90 TRAP 90:? "HAKE of BÖtftili IMüIRPUT »:? 

95 N(I)=LEN(84)+Nli-Öl):{»l!)a-011+01,«a))=Bft:NE)a I 

100 GRAPHICS OiSETCOLDR Ü2»B2,3sSE7Cül«i ßl,Q,14:S£TC0UKt 04.02.B:PDKE 752,1 

105 BQSUB 2000 

110 BOSIiB 1000 

115 FOR F2=l TO lOsFDR F1=0 TO Pl-01 
120 60SUB 120ö:POKE 77»0:LB=3 
130 POSITION 9,(F1+1)*2:? •*' 

140 X=50iV=101 

IS) AA=F*£EK (i öfi) —Bi PAKE 54279, AA:PN=256*AA 

160 PGKE 559,46« 53277,3 

170 IF PEEK(764)=103 TKEN STOP 

175 FÜR I=PH+512 TO Ptt+64ö:P0KE I.BiNEXT I 

190 PÖKE 704,128:POKE 53248, X 

190 FOR I=P8+512+Y TO PN+515+Y:READ ftsPIHCE I.AitOT HRESTORE 
195 IF STRIB(F1)=Ö MN 200 
197 BOTD 195 

200 FOR 11=1 TO 2G:FBR 1=0 TO 5:P£RtE Ptl+51 1+ Y+1 > PEEK1PH+512+Y+I ) 

210 «EXT I:Y=Y-Ö1 

220 IF STICKtFDOlS TUEN ST=BT1CK(F11!GQT0 300 
225 NEST II 

230 FOR 11=1 TO 26:Fflfi 1=5 TO 0 STEP -01:POKE PN+512+Y+I,PEEK{PN+511+Y+I) 

240 HEXT I:Y=Y+ßl 

250 IF STICKIF1 ><>15 TUEN ST-STICtCIKl> sGOTO 300 

290 FOR 1=5 TO 0 STEP -Di:POKE PH+512+Y+I,PEEKlPH+51i+Y+I):NEXT HY=Y+01 
300 SOUND 0.45,9.2:FOR X=6Ö TD 120 STEP 0.9 
310 POKE 53248.X 
315 JOT X 

317 IF S7Ü2 AND ST>0 7HEK FOR ÖM TO 5:S0SUB 130QiX*X+2« W 

320 IF ST<8 AND 5T>4 MN FOR CV=1 TD SiBOSUß 1400: X=X+2: POKE 53243, Xi SCXT CV 
320 FOR X=X TO 190 STEP 0.9:PßKE 53248.XMXT XiPÖCE 53248,210 
330 SQSUB 1500 

335 SA=fiÖ+14fIF BX> AND PF1>6 THE» Sß=ÄD 

337 IF B=D ARD Pl=34 TIO SA=AB+4 O . 

340 FOR W=ftD TO ßß+240 v 'r fl 

342 IF PEEKfB)=B4 MN PF=PF+Ot QuVQgp 

343 IF 6)=3ft TUEN SOUND I),Ö,B,Q:9ßiMD I,ß,O,0 

345 «EXT ft -PSKf 

346 IF 8>Ö THEN 348 , ^ 

347 PF3=10-PF:PF2=PF:PF=Q:1F B=0 AND PF1=10 THER LB=LB-l:60Tß 600 

348 PF2=PF2-FF:PF=0 

400 B*B+ÜIF B>1 THE« B=D:BGTÖ 610 % 

450 LB=L9-l:lF F2=1Ü AND LB=0 MN 8=0:RETURN 1 

500 GOTO 140 


äüo T^ fi r;saro 750 

610 IP PFi+FK2=iö l\m T4a*/"SBÖTB 750 
620 T$=5TR$(PFI+Pf2) 

750 IF E*1 TKEH RRTÜflH 

755 PEJSITIDPI F2*ftf,Fl*2*2i? 1*5 

760 G35UB 3000 

79? IF F2=10 MD S!FMO))Ö TUEN 60® 3290:E=0 
000 POSITION 9,F|*2+2:? " s :Nm FI:KEJTT F2 
310 FOB *S=0 Tö PL4 
020 T=0 

830 m 1=1 Tö 10:T=T-J'fi> sNEXT I 
B4Ö POSITION 33. iH+l)*2s? T 
850 HEXT V 
860 PüKE 53277,0 

865 1 s? “PUSH STICK 01 LEFT 0 Tß TfiY fifiSm“ 

867 ? “PUSH RISKT H F$? m BWÜ-RS!!’ 

870 IF STICK 1GK12 UNS STICK(0)>8 THEN SRAPHICS ÖsECSÜB 4000:8ÖTO 1Ö0 
875 IF S7IÖCIGK8 MS STICK (DI >4 V,M mmZa OtSiMS «ÖÖSB3TG 50 
87? IF PEEKl7A4)*i03 THEN ST0P 
E0Ö GOTO 870 

999 END 

1000 PßSiTIflH 344:? 1 ---■ 

1010 POSITION 3,22:? B --j 

1015 Fßf) 5H5 Tß 21iPffSITIffl) 3,11:? SB :fOT H 

1025 FOR ü=15 TG lStPOSITie» B--4,8:? D ~ a :NEXT H 
1035 POSITION 134?:? 5 - B 
1M0 POSITION 12,20:? 

IMS POSITION 11,21:? a - s 
1050 POSITION 0,0 
109? REM 

320Ö Pl=B4:p2=84sP3=04!P4=84iP5 a =S4:P6 s B4äP7=34äP8e84sP5N}4iPlO»S4 

1205 PÜKE fil)4S7,Pl;P3KE &Fi-iS9,PS:Si= (PU84) Oft (P5<S4):SM 0,200,4,81*2 

1210 PBKE M+138 f P3i?3KE «iW6Ö,M=!P3{34) W (P9<84):5[ffiSä 0,209,4,21*4 

1220 PÖKE fiS-H t ?9,P6:PSKE fiS^78,P2sSl={P6<84) ffi <P2<34):SM 0,200,4,81*6 

1239 PÖKc SD+80,P8:PSK'i fiÖ*39,P4381=(P8<S4) ÖS (P4<B4)tSOUND 0,200,4,31*6 

124Ö PSKE fiD,P7sPGKE &H2M,Piöt5i*(?5{S4! GR !Plö<84»S2«{B{i)äSMIB 1,2ÖM, (51*S2i*8 

1299 RETURN 

1300 FÜR 1=0 TÖ S'sPOKE Pj4*5n*V+I,PEEK(PrMi2+Y+I) 

1305 XsX+2:P0KE 53248,X:(EXT 14=7-51 

12719 SETHRS3 

1400 FÖS 1=5 Tö ö STEP -ölt»OKE PfH512+Y+I,PE£K(PH+5il+Y+I} 

1405 X=X+2:PuKE 532«,X!»E){T ItY*Y+Df 
1499 RETURN 

150Ö IF PEetHM17K>34 THEH 1524IF ST>12 Tüffi ¥=Y+!NT(MD(01/0.5) 

1501 IF ST>I2 THEN Y=¥*M!»iÖ)/ö,S) 

1502 IF Y=S5 HO Pl=0:P2=O!P3=O:P4=ö:P5*C:P6=O:PlWl:P?aO!PlO^:a3SÖB HJOSsREMN 

1503 IF V-90 GR V-Si THEH Pl=3:P2=ösP3=DäP4=8:P5=DtP6=(l:P7=a:P8aC:P9*ÖJPl(W!:G0SU8 12ÖS»KTURN 
I5Ö4 IF V”G7 Tl-Sä Pi=rf5P2=Ö:P3=G:P4=ß:p5=öäP7=G:P8=G:P9=3sP19-=ßsG[fSü8 1205:RETURN 
15Ö6 IF V=91 THEN Pl^;P2*fl:p>D!P6=D:P5«ll:P7*DäPB«D*PW|iP4*0:GOBI« t203'RETUM 
1508 IF V=3? THEN Pl=ÖsP2=C:?3=ösP6=ß:P5s0sP7=öäP8=ö:P9*O:P18«O:G£BUB 1205s REM 

1520 IF ¥=Bß MN Pl=ö:?2=ßsP3=G:P4=ßäP5=0:P6=ö:P8=ü:P9=ö:SGSL 1 B 1293: RET® 

1521 IF PEEK(flS'458)<>H4 AMD PE£K(ßB+78)<>84 Mit 1525 

1522 IF ¥>91 MG VT95 THEN P5=ö!P3=DiP6=ß:P3*ß:PHNl!P9a0:GSSU8 1293t RETURN 

1524 IF y<85 itffi y>81 THÖ? P9^C:P2=öt^=DsP7=0^PB=OrP5==0*SQSUS 1205t RET® 

1525 IF PEEK(Mt»K)B4 HO PEEKIARttWOM THEN 1540 
1530 IF ¥<99 Affi Y>?3 THEN P6=0sP9=DtP10=ö:S3SUB 1295: RET® 

1535 IF V(83 Ml) Y>77 TO ?4=ö:P7=G:P8=ö;SÖ5l!8 1205: REM 
1510 IF Y<75 08 V>101 THEN RET®! 

1545 IF Y<78 TO P7=ßtßOSUB 1293: IF y=7S THEN PlÖ4):St3SiiB 1205 
1550 !F V>9S TUEN PIMHBffiÜE) 1205:IF Y-10! THEN P7=ß;G0Bte 1295 
1599 RETURN 






1600 GRAPHICS 0 


1610 AA=PEEK(561)*25i+PEEK{560)+3 

1620 PAKE M.7l:F0KE AA+3,6 

1630 ? • BÖHLINS VOM Hl LÜHKE“ 

1640 ? s? • THE COMPUTER WILL DRAU THE BMI KB LAHE AND SCORE SHEET," 

1650 ? ‘ß STAR 8ESIDE YQUR NAHE INDICATES IT'S YOUR TURN.“ 

1660 ? "WO THE BLUE BALL APPEA8S AT THE FOUL LIME. PUSH FIRE DK THE STICK 8 
1670 ? "TO START THE BALL HÖVING UP AND DEBH," 

1680 ? TO YOU KANT THE BALL 70 ROLL PUSH 
16B5 ? *jFÜR8ARD GOES STRAIGHT." 

1690 ? D IF YOU DO NOT PUSH THE STICK BEFÜRE 
1700 ? 'BACK TO THE BOTTDFf, IT WILL Rßü 
1710 ? “THE CQNPUTEH WILL KEEP SCORE AND 
1720 ? "HIT ANY KEY TO START»' 

IBM BET fU.PLtRETURH 
2000 Föfl 1=1 Tö PLäPOSITIOH 1,1*2 
2010 7 NMNÜ-D+MIU» 

2050 HEXT I 

2100 FÜR 1=1 TO PL*2*2 STEP 2:PÜ5ITI0H 1,1 


2150 HEXT I 

2160 POSITION 1,0!? 8 FRftfS 1 2 3 4 5 6 7 8 9 10 TOT“! 

2200 FOft 1=1 TO PL 

2210 POSITION 10,1*2:7 ■! ! [ ; ! 1 } \ \ ' \ «■ 

2230 HEXT I 

2999 RETURN 

3000 IF PF1=10 TUEN S1F1,F2)=2:GDTG 3020 
3010 IF PF3+PF2=10 TUEN S(Fl,F2)=i 

3020 IF S(F1,F2-1)=2 TUEN T(Fl,F2-1>=T(Fl,F2-t >+PF!+PF2 
3030 IF S(F1,F2“1)=1 THEN T(Fl,F2~l)=T(Fl,F2-i)+PFi 
3040 IF F2<2 TUEN 3060 

3050 IF 5(F1,F2-1>*2 AND S(Fl,F2-2)=2 TiO TfFl,F2-2)=T(Fl,F2-2)+PFl 
3060 TIFLF2) =T(Fl.F21+PF1+PF2 
3100 RETURN 


THE STICK, LEFT CURVES LEFT.RISKT 

THE BALL GOES Tß THE TOP AND COHES 
AUTOHATICALLY.- 

PRIHT THE TOTALS AT THE EHÖ OF THE 


3200 E-ÜFOR 2=1 TO SiFl,F2) 

3205 IF 2=1 THE« LB=S(F1,F2) 

3210 IF 2=1 THE« SÖSUB 1200s60SU£ 140 
3220 IF 2=1 AND S(F1,9)=2 AKB S(FM0J=2 TUEN 7(Fl,9) =T(Fl,9) +PF1 
3230 IF 2=1 AND S(F1,10)=2 TUEN TfFM01=T(FM9HPFl+PF2 
3232 IF PF1=10 TI€N POSITION 30,Fl*2+2!? "X";:6ÜTD 3240 



3235 POSITION 30iFl*2+2i? PF13ÜF PF1+PF2=1Ö AND S(Fl, 101=2 THEN "> "/"iSOTO 3240 
3237 IF S(FM0)=2 TUEN ? PF2 

3240 IF 2=1 AND SfFl,10)=l TUEN T<F 1 , 10)«TrFl ,I0>+PF1sSOTO 3270 
3250 IF 2=2 AND 5(F1,10)=2 AND PF1=10 THEN E=l:GBSU8 1200s 
3255 GOTO 3270 

3257 IF Z=2 AND PF!=10 THEN ? “X u tSOTO 3260 

3258 IF 2=2 THEN ? PF1 

3260 IF 2=2 AND S(F!,1Ö}=2 THEtf T(fMOW(FMÖ)*PFl 
3270 HEXT Z 
3299 RETURN 

4000 FöR 1=0 TO 4sF0R 11=0 TO 12 
4010 S(Ml)>0iT(Ml)-0 
4020 HEXT li 
4030 HEXT I 
4100 RETURN 
5000 DATA 6,15,15,6 



0 POKE 752,3s? '} PLEASE HAU* 

1 DATA 33,-1.88.23,1 

2 DATA 23,243,88,23,1 

3 flATA 22,217,88,33,1 

4 BATA 10,193,88,43,1 

5 DATA 16,182,88,53,1 

6 DATA 21,162,38,63,1 

7 DATA 35,144,38,73,1 

8 DATA 37,128,80,33,1 

9 DATA 32,121,88,93,1 

10 DATA 34,100,88,103,1 

11 DATA 38,96,88,113,1 

12 DATA 39,-1,88,0,0 

13 DATA 63,-1,88,0,0 

14 DATA 62,230,7B,27,2 

15 DATA 58,204,73,37,2 

16 DATA 56,-1,78,0,0 

17 BATA 61,173,78,57,2 

18 DATA 57,153,78,67,2 

19 DATA 1,136,78,77,2 

20 DATA 5,-1,78,0,0 

21 DATA 0,114,78,98,2 

22 DATA 2,102.78,108,2 

23 DATA 6,-1,78,0,0 

24 BATA 7,-1,78,0,0 

25 DATA 60,-1,78,0,0 

26 DATA 44,-1,78,0,0 

27 DATA 47,91,38,44,1 

28 BATA 46,81,38,54,1 

29 DATA 42,72,38,64,1 

30 DATA 40,64,33,74,1 

31 DATA 45,60,38,34,1 

32 DATA 43,53,38,94,1 

33 DATA 11,47,38,104,1 

34 DATA 13,45,30,114,1 

35 BATA 8,40,33,124,1 

36 DATA 10,35,38,134,1 

37 DATA 14,31,38,144,1 

38 DATA 15,29,38,154,1 

39 DATA 12,-1,38,0,0 

40 DATA 28,-1,38,0,0 

41 DATA 31,-1,23,0,0 

42 DATA 30,85,28,48,2 

43 DATA 26,76,28,58,2 

44 DATA 24,60,28,68,2 

45 DATA 29,-1,28=0,0 

46 DATA 27,57,28,88,2 

47 DATA 51,50,28,98,2 

48 DATA 53,-1,28,0,0 

49 DATA 45,42,23,119,2 

50 DATA 50,37,29,129,2 

51 DATA 54,33,28,139,2 

52 DATA 55,-1.20,0,0 

53 DATA 52,-1,20,0,0 

60 BI« Nfa00},m<10),Y*U0) 

65 FöR M T8 800= S (I > =0 e MEXT I 
70 S=0 


78 IF S=ö THE« PRINT 'PRESS SPACE BAR WEN FINISH£»'*60Tfl 100 
SO OPEN S1,4,0,Y*UNF(JT ftt.ICK 
90 FOR 1=1 TO KKÜNPBT «l,Xi»(IM(ilEXT I 
95 ClOSE II 

100 DIR STRUCK 1631, RÖ1S (63), CLfS (63) > C8ULS(63) 

UO FGR X*1 TD 53 
111 READ A,B,C,D,£ 

113 STRUCKlA)=8*{A)=CiaHSlA)=D:C0ULSlA)=E 

115 HEXT X 

120 8RAPHICS 7+16 

130 SETCQLDR 4,7,2 

135 SETC0L08 2,7,2 

140 SETCÖU5R Ö,Ö,14:C0L® 1 

150 CflL=27 

160 FÜR KEY=1 TO 10 

170 FOR C®C0L-7 TO COL 

100 PLOT C,00 

190 DRA4JTÖ E,90 

200 NEXT C 

210 E3L=C!L+I0 

220 NEXT KEY 

230 SETCOL® 1,0,0:!M 2 
240 C0L*31 
250 FOR KEY=1 TB 7 
260 FÖR EXOL-7 TO COL 
270 PLOT C,60 
280 DRÄWTß C,8Ü 
290 »EXT C 
300 COMQL+IO 

305 IF KEY«2 TS31 C0L*CDL+1O 

306 IF KEY=5 THEH C0L=CDL+11 
330 NEXT KEY 

340 COL® i sCDL=*4B 



350 FDR KEY=1 TO 12 

360 Fßft C=C0L~7 TO COL 

370 PLOT C.10 

380 DRANTD C,4Ü 

390 »EXT C 

400 C0L=COL+10 

410 »EXT KEY 

420 COLOR 2:C0L=52 

430 FOR KEY=I TO 8 

440 m C=C0L-7 Tß COL 

450 PLOT C.10 

460 DRAHTS C,30 

470 »EXT C 

400 CßL=CÖt+lü 

482 IF KEY-3 THEH CÖL*CÖL+1Ö 

484 IF KEY=5 THEH CQL=CÖL+11 

490 HEXT KEY 

820 OPEN #Er4>0» H )C: ■ 

825 IF S THEH 840 

830 IF PEEK(764)=255 THE» 830 

840 IF S THEH HN=NH+1! A=N(NN) i B=PEEK (53775)! 60TO 843 

841 A=PEEK(764)!B=PEEK(53775) 

842 HN=HN+1:»(»»)=A 


843 IF S=1 AHO HH=XX TIE» 4030 

844 IF 3=0 AHO PEEK(764)=33 THEH 4000 

845 COLOR 3*&PSUB 1000 
844 IF ß=0 THEH 4030 

850 IF STRUCK(A)=-l THEH 900 

840 SOUND Ö t STRUCK(AM0,8 

B65 IF S THE» COLOR CQULS<A):GQTD 895 

870 IF PEEK(53775)OB THEH 900 

880 IF PEEK(764)=A THEH PP=PP+1:IF PPOÜ THE» 842 

8B5 IF PEEK(764)=ß THE» PP=0:GÖTD 900 

890 EQLÖR CD0LS(PEEK(744)) 

895 60SUE 1000 

896 ßDTQ 840 

900 IF S THEH COLOR CDULS(A)!6DT0 906 
902 POKE 764,255 

905 COLOR CODES(A) 

906 BDSU& 1000 
910 SOUND 0,0,0,0 
920 GOTO 330 
1000 REH 

1020 FÜR X=0 Tß 1 

1030 PLOT CLHS(AHX,ROHS(A) 

1040 DRAHTD CLH5(A)+X»RDHS{M*1 
1050 HEXT X 
1060 RETURN 

4000 REN HSITE 

4001 RUN 

4005 OPEH *2,S,0,Y*:PRIHT #2;»» 

4010 FOR 1=1 TO NH:PRINT 52;N(I);NEXT I 
4020 CLOSE 52 
4030 CLOSE II 




1 reu KfltjiE 

2 DIN Ei(lÖ),Ril4Ö) 

5 DIN »$(1),X$Ü01 

6 DI« B1(71,B2(7),B3(7) 

7 DIN Y(21) 

B P05CE 752i3JPOKE B2,i:P0X£ 03,39 
IO REH 'DltKAfllC' 

15 DM Ä(21) 

20 FOR 1=1 TD 21 
30 fl(11=1+64 
40 HEXT I 
50 PRINT 

70 POSITION 0,12 
80 Di=“ ,s 
90 N=40 
100 SOSUB 2000 
110 POSITtDN 0,13 
120 SOSUB 2000 
130 POSITION 5,1 

IW PRINT 'ft MAGIC TRICK 

170 6ÖSUB 1000 

171 C9=3s R9=7 

173 Ri*“ THINK ÖF flNY LETTER BELOK" 
175 SOSUB 3000 
1B0 C9=3sR9=9 

190 Ri=‘ PRESS RETURN HHEN REflDV“ 

200 SOSUB 3000 
210 POSITION 32,9 
220 INPUT E$ 


225 FÖR 64*1 TD 3 

230 C9*3:R9»7 0 

240 Ri=" ENTER ROH BHICH CORTAIHS LETTER 1 

250 60SUB 3000 

260 C9=3:R9=9 

270 Ri=“ ' NHICH ROH “ 

280 SOSUB 3000 ->■ 

290 POSITION 25,9 
300 INPUT X 
310 1F X>3 TUEN 230 
320 FOR K=1 TO 7 
330 Bl 004«) 

340 B2tX)=A(K+7) 

350 B3(iO=AtK+14) 

360 HEXT K 

370 SN X GOTO 390,600,440 
380 FOR 1=1 TO 7 
390 Y<n*B2ü) 

400 Y(I+7)=BIU) 

410 Y(I+14)=B3ü) 

420 KEXT I 
430 GOTO 650 
440 FOR 1=1 TO 7 
450 V(1HU(» 

460 Y(I+7)*MtI) 

470 V(1+141=B211) 

480 HEXT I 
490 GOTO 650 



600 FQfl 1=1 T0 21 

1010 FOR R=1 Tö 3 

610 Y(I)=A(I> 

1020 PRINT "RUN MR!" -> *! 

620 HEXT [ 

1030 FOR Ol TO 7 

650 M 

1035 N1=1R-1)*7+C 

660 Föfl 1=1 TO 21 

1040 PRINT CHR4(A(Nl)lJ* '! 

670 A(I)=Y(I) 

1050 HEXT C 

680 M+7 

1060 POSITION M6+tR*2> 

690 IF 1)21 TUEN Z=Z-20 

1070 HEXT R 

700 HEXT I 

1080 RETURN 

710 IF 6403 Jm GÜSUB 1000 

2000 m 1=1 Tö N 

720 HEXT 64 

2010 PRINT D*1 

730 X=Atll) 

2020 HEXT I 

735 GOSUB 8000 

2030 RETURN 

740 FOR 1=1 TD 21 

3000 D*=* 1 

750 flfl)=X 

3005 N»35 

760 HEXT I 

3010 POSITION C9.R9 

770 POSITION 0,12 

3020 GOSUB 2000 

771 N=4Ö 

3030 POSITION W,R9 

772 M«- « 

3040 PRINT Ri! 

773 GOSUB 2000 

3050 RETURN 

774 POSITIOM 10,12 

8000 FOR 1=0 TO 15 

775 PRINT "fl B R A C ft D A B R A 1 ! B { 

0010 FOR J>1 TO 7 

776 POSITION 0,13 

8020 SETCDLOR 2,I,2*J 

777 GOSUB 2000 

8025 SOUND 0, ll3*ü3-I)M0*tft 

790 GOSUB 1000 

8030 HEXT 3 

ÖOO PRINT "ENTER ’£’ TQ EKIT"i s IMPUT XCIF XJ=‘E“ THEH STOP 

8040 NEXT 1 

810 RUN 

8050 SETCOLOR 2,8,2 

1000 REN BISPLAY ROUTINE 

8055 SOUND 0,0,0,0 

1005 POSITION 1,16 

8060 RETURN 





1 m FLASSEN m «ELT 

2 RE» 

3 REH 

4 REH 

10 DIN «{811,84(20) 

20 GRAPHICS 1BESETCQIJ8 4,4,l:CflL0E 321PLQT fc,5i? 16!"FLAGS*ifiOSUB 
30 ? «4s? ü*? 86$' IUSTRUCTIONS Cy,«3?* 

40 OPEN BM,ß, li Ki , t8EY 81,KEY 
50 6QBÜB 30000!EF KEY=89 THE» BÖ5U8 31000 

60 GRAPHICS ZtSETÜGLÖft 1,11,0«SETOJLOR 2,U,6:SETC0L0R 4,U,0:C0U1R 32SPLÖT 0.3 
70 ? 86l B HÜIJ mi FLÖGE BP’!? #6!“ YOU HIER TD*:? «6!* IBEHTIFY?"!? 

X 80 IHPUT ÄJa 

90 PR=PR+l:lf TREU 8000 

100 RESTORE :fi=IHT(RHB(0)*37)+l 
110 FOß Z*1 TÖ R 
112 «= UB :HEXT Z 

114 READ A*,CO,BO,Ci,Bl,C2,B2 

115 FOR Z=LEM1A9)-H TB 80 

116 A9(Z)=" *!NEXT Z 
118 49(81)=“*" 

120 GRAPHICS 3:S£TCBL0R 0,CO,BO:SETCOLÖR l.Cl.BÜSEmOR 2,C2,B2:SETCQLOR 4.0,5 
130 IF R>17 Tie GOTO 2000 
140 GOTO 1000 

1000 FOR Z=2 TD lÜCBLÖR UPLÜT 6,ZiDRA«TD 15,HC8U» 2:PLBT 16,ZtD8fHJTP 25,1 sG8L«i 3:PLOT 26,Zi0RMITiJ 
1010 IF R(8 TUEN 603UB 3000 
1090 GOTO 9000 

2000 FOR Z*1 TB &CÖLÖR ZtföR Y=1 TO 5:PLOT 6, S2-iH5+Y+i5DRAiTÜ 35, (Z-l)*5*YMS«a YslOT l 

2010 IF R<25 TIER 60508 3000 
2090 GOTO 9000 

3000 CQLÖfi 4:FOR 2=19 TO 22:PLOT Z.BsPLDT Z.lOÜiEXT ZiPLOT 19,9>RETURN 
8000 GRAPHICS lGtSETCBLOR 2,2,OiSETC0LOR 4,2,0iC0L08 32:PLOT 4,3tPRINT #6lSCßft£!" OUT HF 8 !TOTAL 
BOJO PLOT 1.6SPRIHT 86! "PLAY ASAIIW/N)"i6ET Sl.KEYUF KEY=B9 THOi RUN 
8020 END 

9000 IF R>33 TFEH RESTOSE 
9005 READ SSiPÖKE 752,i:FÖR 2=21 TD 61 STEP 20 
9010 FOS Y=1 Tß 7iREAD BtsOT Y 
9020 fi9(Z, 2+171«B9«9KXT Z 

9100 ? ■ fflfAT COTfiY FLIES THIS FLAB ?’:EaSl)B 3OJ20:GQSUB 30120 
9110 R*INT(RND(0)*4)*20:Z*R 
9120 Z=Z+2C:IF Z>61 THEH Z=1 
9130 SQSJB 30020s? :? s? ,A51Z.Z+!9>i? 

9140 IF SriCKI0>=14 Tie 9120 
9150 IF STRIS(0)=i TUEN 9140 

9160 PRINT :PßIHT : PRINT ,A3(1,20):PRINT :IF ZOl THEN 9200 
9170 SC0RE=SCPRE+1:TDTAL=TCTAL+1s PRINT 8 CORRECT SCORE: "jSCOREi" OUT ÜF *5TOTAL 
9180 FOR Z=i TO 3: FOR Y=0 TO 6 STEP 2:SETCOL0R 4,ö,Y;60SUB 3Ö13ÖUOT YiBBSUB SOOOOüNEXT ZsßOTO 90 
9200 T0TAL=TDTAL+1SPRINT * INCßRRECT SCDRE: *5SCORE! * OUT OF a STOTAL«60S03 30010:5^118 30110:8010 9 
1Q008 DATA HEXKÖ,11,0,0,13,3,0 
10010 DATA BARBADOS,8,0,13,12,8,0 
10020 DATA GUATEMALA» 8,0,0,13,3,0 
10030 EATA PERÜ,3,0,0,13,3,0 
10040 DATA CAHERÖßN,13,0,3,0,13,12 
10050 DATA RUANDA,3,0,13,12,13,0 
10060 DATA SENEGAL,11,0,13,12,3,0 
10070 DATA IRELAND,13.0,0,13,2,0 
10080 DATA ITfiLY,13,0,0,13,3,0, 

10090 DATA ANDORRAS, 0,13,12,3,0 
10100 DATA CHAS,8,0,13,12,3,0 



10110 DATA CiHNEA,3,0,13,12.3,0 
10120 BATft IVORY C0AST,3,O,0,13,13,0 
10130 DATA MLM3,0. 13,12,3,0 
10140 DATA NIÜERIA, 13,1,0,1343,1 
101S0 DATA BELßlUH,0,0,13,12,3,0 
10140 DATA FR«tCE,ß,O,043,3,C 
10170 DATA IBDIA,3,0,0,13,13,0 
10180 DATA E6YP7,3,0,0,13,0,0 
10190 DATA 2DLIVIA,3,0,13,12,13,0 
10200 DATA KI GE84,9,0,13,11,0 
10210 DATA VENEZUELA» 13,12,8,0,3,3 
10220 DATA BULßAHIA,0,13,13,5,3,0 
10230 DATA EAST 6ERMNY,0,0,3»0,2,4 
10240 DATA YUEGSLAVIA,0,0,0,13*3,0 
10250 DATA PARAGUAY,3,0,0,13,8,0 
10260 DATA UiXÖSgURG, 3,0,0,13,10,0 
10270 DATA NETHERLAKDS,3,0,9,13,8,0 
30280 DATA BEST fiEJtfSANY,0,0,3,94,2 
10290 DATA ETHI0P1A,11,0,13,12,3,0 
10300 DATA 60BQN,tl,0,13,12,8,0 
10310 DATA HUK8ÄRY,3,0,0,13,3,0 
10320 DATA SIERRA LEDNE,11,0,0,13,8,0 
10330 DATA SSGAU,0,0,33,12,13,0 

10349 MTA AD3TRIA,3,9,0,13,3,0 

10350 DATA tiPPES VOLTA,0,0,0,13,3,0 
10360 DATA EL &ALWUHM»8,0,0,13>8,0 
15000 DATA 81,193,81,193,96,217,121,243,121,243,%, 193,96,193,81»U2,8lplö2,60,243,40,243,60,243,40,243,60,243 
15010 DATA 40,243,60,243 

3000Ö Fßft 11=200 TO 100 STEP -KSDU0 0,13,10,4ÜOT (jsSßUNS O,O,0,OsRO®i 
30010 STO 0,240» 12,S:R3ft TT=1 TD 50JSEXT TT:S0UND 0,0,0,OsR^URN 
30020 SM 0,140,19,RiFOR TT-1 TS 20ÜOT TTiSOUHD 0,0,0,Ö:RETli«H 
30030 Fd IM TO 1MSSIIID 0,MTU»(0)«140MO,4iNEXT ijsSM 0,0,0,0i RETURN 
30040 FPS 4=1 TO 37: READ A4:HEXT !f 

30050 FOfl 11=5 TS 16:SS® G,540,6sS0ÜKD 1,6,10,4:885118 30130:8« 30130*07 ü 

3006Ö SßÜND 0,0,0,0:50® l,9,Ö,0sRBTdE :RETURN 

30100 FÖR TT=! TS 29091HEXT TT 

30110 Fd n=l 70 590: HEXT TT 

30120 FÜR TT=1 TO 100:HEXT TT 

30130 Fffi? TT*1 TO 30: HEXT TTsRETlM 

31000 «tICS OiSETCäHQR 2,9,OsSETCOLÖS 4,8,OiPO*E 752,la? t? :PRM ,m« TO FLAßS” 

31005 ? 5? :? :? "ÜPOU ENTERING THE MÄHER OF NATIONAL“:? “BOJBfi YOU Kid TC IDENTITY, A FLAG“ 

31010 ? “KILL EE DISPLAYED OK THE SCREBf.*!? “PUSH THE JOYSTICK FORNAffl TD VltTf THE 8 
31020 7 "4 PöSSIBJUTIES. PRESS 1 KB THE“:? "JOYSTICK SDTTßN BILL SIBNIFY VÖUR* 

31030 ? "CHQICE» AFTER AH JRCdRECT ßliESS":? "THE EHBLER KILL BE IDEHTJFIED Fd Y0T 
31035 1 "BEFERE PRÖCEEDIKS TD THE HEXT FLAB,":? :? "A LARGE ’C’ IR THE EHBUR’S CENTER" 

31037 ? "KP8ESENTS A CRtST.’:? :? :? ■ PRESS ANY KEY TO CQHT» s :P0KE 764455 
31950 IF PEEK(7641=255 THRN 31.050 
31060 PQKE 764,255:8GSUB 3C50ö:fiETl5RK 







1 t". 

lö REM **« 3D-IRRGARTEN **** ' 

25 PRINT n (ain^5> 5>sax:36»22) * 

UO INPUT MI^MJÜF «I>36 DR H3>22 DR Ml<5 DR HJ<5 THE« 10 
112 PRIKT ‘Irrgarten »ird konstruiert !* 

115 CDU N{M,IU),ß$(!) 

120 CK=HI*fiJ/4:F0R 1=0 TO KUFGfi J=0 TO «]:«(!,J)=3iHEXT J:REXT I 
130 DI=-l:DJ=0sAI=f!Iifi3=INT(n(IU/2)-l)-*R«S(O)!-H)*2:CT=l 
HO IUAI ? AJ)=0:AI-ftHOi:AJ=AJ<-DJ:SI=ftl!SJ=AJ 
150 !UAI,ftI)=[ 

IM M=IKT(3*RKß(OHl!-2:BJ=INT13’HiND(0}+U-2iIF A8S(DI)=flBS(DJ) THEN HO 
170 ßI=AHDI:AJ=AJ+D3 

150 If fl 1=0 OR AI=KI QR AJ=Ü OR AJ=iU THEN 230 
190 IE NtAEHJHi TUEN Hö 
200 FÜR I»-i Tü 1 STEP 2:F0R J=-i TD I STEP 2 
210 IF tf(AM,A3+J)=l AND fl{AMJItJ)=l AND K(AI+I,A1)=1 THEN 240 
220 HEXT JsNEXT l:CT=CT+l:BQTO 150 
230 IF CT>CK TUEN HIAI,A;»*4:AI=SI:AJ=S,1:GOTO 1200 
240 A I=AI-D1: J i SOTO HO 

500 REH AUSBflEE 

1000 GRAPHICS OiPOKE 752»H3ETCDL0R 2,4,2;SETCÖLQR 4,4,2:ZAEH=ZAEH+I 

1010 FÜR 1=0 TO MTiFPR J=0 TD HJ 

1020 IF HÜJ!=1 OR «11,31=2 IREN CH=32 

1030 IF «11,31=3 THEN CH»16Q 

1040 lf HÜ,J}=0 THEN CH=211 

1Ö50 IF HU,J 1=4 THEN CH=197 

1060 IF AI=I AND AJ>3 THEfl CH=« 

1070 POSITION I + (19-(HI/21 PRINT CHRSfCHlUtOT ,I:MEXT I:RETURN 

1200 FE=Al:FF=flJ:flZ=INT(fiHDI0)*3M-i:RD=!NTiRNB!O)^2i:C0K AflD.BIHMIIUMHll) - 

X1210 Kö=0:K1" 1:N2=K 1+KIsK3=K2+SClsK4=K2+K2:K5=K2+K3:K6=CI+K3: K7=K6*K 1:K8-K4+K4IK9=K4-&5:K19=K5HC5:KS1 =K1Ö+Ki 
1220 FGFt I=KG Tö KU STEP K2:fi{I)=I*K7+}a:AlM!)=HtSC3+0.5):9(I)=Aül:BUH)=Ka*Klö"I*iK3+0.51 
1230 CÜ)=(l(KlÖ+}I6H{I10)-HX71-ta:CUtKl)=AUtKl}:DÜ}=CU]:8Ü+!a)=B[I+Kl):!äEXT I:G0SU8 500 
1300 IF ZfiEH<=RD THEfl IF STR16fKO)=KO THEN GQSÜ3 500 
1320 S?=STICXtKÖ>:lF ST=K11+K4 THEN 1300 
1330 IF ST=K3*K11 THEN AA=K0:6ßTD 1400 
1340 IF SMü THEN aZ=AZ-Ki:AA=Ki:SÜ5t!B 9000I6DTÜ 1400 
1350 IF ST=K7 THEN fiZ=ftZrKl:AA=ms63SUB 90ÖC:60TD 1400 
1360 SÖTO 1300 

1400 5DUND K0,151,Ka,Klö:6{lTß A2*IÜ!HI41Ö 
1410 POJt-Kl s PÖV=KÖ: Ll=XOs L2=-K 1: GOTO 1450 
1420 PÖX=KO:P GY=K H Li=K1s L2=K9:EDTO 1450 
1430 PDX=-K 1: PüY=KO: L 1=K0: L2=K j i GOTO 1450 
1440 PSX=KO: PQY=“X1:LI=-Kl: L2=K0 

1450 EN=EH+K1:GRAPHICS K7**9+K7:CHLOR XÜSETCOLDR K4»KI 1»K0:SETCOLQR KO,MO:SBSUB 9500 
1470 SD» KO, KO, KO, KO: XP=fl I s VP=AJi FOR I=K2 TB K10 STEP K2 
1450 IF H(XPH1,VP+L2)=K3 THEN GOGUB 3000:GBTö 1500 
1490 IF ff(XP+Ll,YP+L2K>K3 THEK GOSUB 4000 
1500 IF N(XP-L1,VP-L2)=K3 THEN GßSUE 500Ö:GDTD 1520 
1510 IF H(XP-L1,YP-L2K>K3 THEN GOSUB 6000 
1520 SDSUB 9000:IF mXP+PÖX,YP+PÜY)=K5 THEN 7000 
1530 XP=XP+PGX: YP=YP*PDY s NEXT I; MIO: GOTO 700Ö 

3000 PLOT fl(I~K2),fl(I-Kl):DRANT0 fi(n,A(I+Kl):5RflilTD BilbBfUKDsBRflBTQ BII-K2),B1I-K1> 

3010 RETURfi 

4000 PLDT A(I-K2),AfI+lCl):DRfiSTD A<D,A(Ml):DRflNTfi BU),BÜ+l!l):B8ßftTQ B(HE2>,Btim) 

4010 RETURN 

5000 PLOT C(I-K2)tC(I-Kl):RRflUTG Cfü.CII+KDiDRAlfTQ B(D,DfI+KI):DRflHTQ ß(HI2) f DlMl) 

5010 RETURN 

6000 PLOT CU-K2),CÜ*SUi:D8fitlTQ Cül.ClMllsDRAitfTO DU),DüfKi):IMN7G B(Ht2),DlI+Kl) 

6010 RETURN 

7000 PLOT AÜ),fl(Mi]:3RflNT0 ClIMMI+KlUPUT EÜ},BI]+K1):DRAWTD 0(I),DU+iü> 

7010 IF CD=K2 AMD CIMÖ THEN 7500 
7020 GOTO 1300 



iS* 



7500 FÜR MO TG K9*K1Ö1NEXT UFAS MO Tfl K6:SOUND KO f 99,K!O.K10:SETCOLDR K4.K7,K6:FQR MO TO K9*K9:iOT J 
7505 SETCGLÖ« K4.K2.KÖ 

7510 SOUND Kö.KO.KO.KOsFQR MO TO K9*K9sKEXT JsWEXT 1 SPRINT "Sie sind aus den Irrsarten nit "sEtt 
7515 PRINT "Zuesen entkoaasn I Gratulation! I!" 

7520 PRINT "Neuer Irrearten "f!INPUT ftÜIF ßtOÜ.XIMJ“ THEN RUN 

7530 PSIN7 "Nochnal der selbe "m INPUT AtslF A$(?Ü,K1I=M" THEN CD=XG:AI=FEsAMF:Z AEMOsEMO:GOTO 1300 
7600 END 

9000 IF ftZ<JCO THEN AZ-K3 

9010 IF AZ)K3 THE» AZ=iCÖ 

9020 RETURN 

9500 IF AA=K1 THEN CD=KO:GOTD 9540 

9510 IF CD-K4 THEN RETURN 

9530 IF H{AI+P0X,A3+PgYK>K3 THEN AI=AI+PGX:A3=AjfPÜY 
9540 RETURN 

9600 POP iCOLPR K2i PLOT 85,36:DRßHT0 75,36:DRA)1T0 75,4ösDRAHTG 85,40: DR AHTG 85,44:DRAMTÜ 75*44:6010 7000 

9700 PQP sCGIGS K2:PLDT ß5,3i:BRAHTD 75,36:DRANTG 75,M:0RA»TO 85,44sPLOT 75,4ö:DRAHTÜ 85,40iSGTQ 7000 

9800 IF KK6 TREN IF »IXPtfflX.YP+PflYMO THEN 6G5UB 9900sSJSUB 9950sGOTO 9600 

9S10 IF I<K6 THEN !F M(XP+POX,YP+PÜY) =K4 THE» 6BSUB 9900s CM55GOTQ 9700 

9B15 IF H(XP+PQX,VP*POY)=K4 GR H{XP*P0X,YP+PDYMO THEN 7000 

9B20 RETURN 

9900 IF KX2 THEN CC=K2:RETURN 
9910 CC=IiRETURN 
9950 IF KK4 THEN CD=K4sRETURN 
9960 PGP :GOTO 9600 



" SW 




1 REH ** DREHEHBE, FARBIGE 2YLINDER n 
5 »EG 

10 GRAPHICS 10 

ISfBR 1=1 TD 7SP0KE 705+1.128+2! NEXT I 
17 POffi 705.136 

20 FDft ANß=180 TO 360+180 STEP 6 
30 X=8+8*C0SiAN5) 

40 Y=16+8*SIH(AN6) 

50 CÖLOfl (AKG-130) /45+UPLOT X.Y 
60 DRAHTS X.8Ü+Y 
70 CQL8R OiPLÖT X.Y 
90 HEXT AUS 

120 FÖR AMS=1B0 TO 360+180 STEP 6 
130 X=26+8*CÜS<ANB1 
140 Y=16+8*SItl(ANG) 

150 COLOR MWJG-180)/45iPLQT X.Y 
160 BRAHTO X.100+Y 
170 COLOR 0;PLOT X.Y 
190 HEXT ANS 

220 FÜR ßW6=lB0 TD 360+180 STEP 6 
230 X=44+8*E05(fllfS) 

240 Y=16+8*SI(i(ANS) 

250 COLCR iftNß-1801/45+1sPLDT X.Y 
260 DRAHTS X.120+Y 
270 COLOR OiPLOT X.Y 
290 HEXT ANS 

320 FÖR ANS=1B0 TD 360+100 STEP 6 
330 X=62+8*EDS(ANS) 

340 Y=16+8*SIK(ANS) 

350 COLOR ?-(ANß-180t/45:PLOT X.Y 

360 DRAHTS X.140+Y 

370 COLOR Os PLOT X.Y 

390 HEXT MS 

410 GOTO 500 

420 FÜR fiWB=180 TO 360+180 STEP 6 
430 X=50+8*COSfßNG) 

440 Y=16+8< t SIHlANG) 

450 Cülüfi (AUS-ISOl/45+l:PLOT X.Y 

460 DRAHTS X.140+Y 

470 CHOR ös PLOT X.Y 

490 HEXT ANS 

500 A=PEEK(705) 

510 FDR 1=705 TD 711 
520 POKE I.PEEKII+1) 

530 HEXT I 
540 POKE 712.A 
550 SDTO 500 



100 REH ******* SÜPE-RJEHO ******* 

IW DM TfflM((!28).80TU(128) 

150 DM TOPSÜ28),BOTS(12B) 

160 DIB COL*(255) 

190 GDSUB 550 

210 GOSUB 800 

230 80SUB 10060 

260 ST=PEEK(560)+256®P£EK(561) 

270 PDKE STi112+128 
280 PGKE ST+3,13+64+128 
290 FM V-6 TO 6+96 STEP 2 
300 PDKE ST+Y,13+120 
310 HEXT V 

340 FQR R0T=0 TO 300 STEP 2 

350 SAHDY=Ö 

360 BÖT$=C0Lt(l,125) 

370 TOP$=C0UU26,25Ü! 

390 TÜP($=TÖP$fl)120) 

400 TßP4=T0P*(!21tl25! 

410 TBP4(6)=TßPl$ 

420 TOP$(5,5)=CK89tROT) 

426 IF ROT>255 THE« TQP$(5,5!=CHRt(Ö! 

440 BOT1*»BOT*(1,5) 

450 B0T$=ßöTS(6) 

460 BBTi(121)=BÖ71$ 

400 C0L$(M25)=8OTt 
490 CGLSü26)'TGPt 
500 HEXT ROT 
510 GOTO 34Ö 

550 GRAPHICS 23sßES :SE7C01QR 2,4,10iDIN C(3) 

560 SETCOICR 0(Öd0 

570 SETCÖLGR 1,(1,6 

580 SETCDLßR 2,0,2 

590 R=20:CGLBR l:C=l 

600 XQ=79;YÖ=47 

610 FM K=0 TD 3:CIK)=K+1*2:HEXT X 
620 FOR K=I TO 3 

630 X=X0+R#COS1360}:Y-VösPLöT X,Y 
640 FQR 1=0 T0 5*360 STEP 75 
650 X*XO+R*CÜS(I}:Y=VO+R*SIflÜ) 

660 DRABTO X,Y 

670 HEXT l:R=ft+]2iC-C+S;C0LBR C 
680 HEXT K 
i 690 28=1 

700 FQR LOQP=l TB 50 
*710 CBLQR Z8 
*720 Xfi=INT(RND(0)*159)+t 
4 730 YS=IHTm»D(01*471+1 
-740 PLOT XS,Y8 

^ 750 2B=28+liIF 28=4 THEH Z8=l 
760 HEXT LOOP 
770 RETURN 

BOO FOR T=t TG 255 STEP 5 
810 CÖL4(7,T)=CHftÜIT} 

820 Tl=T+80 
830 T2=T+16Ö 

8(0 IF TI>255 THE« TMI-256 
850 IF 72>255 THEH T2=T2-256 
960 C0L$(r+I,T+!l=C!1Rt(Tl) 

870 C0L$(T+2,T+21=CHR t(T2! 

880 C0L$(T+4,T+41*CHR$(0) 

900 HEXT T 
910 RETlKtK 




10060 UN PRK60) 

101IÖ READ X 

10120 IF X=255 THE» 10320 
10130 PRS(LEH(PRS1+1)=CHR$(X) 

10140 GOTO 10110 

10130 DATA 72,138,72,152,72 

1O190 DATA 162,0,173,11,212,201,07,240, 

10200 DATA 174,01,02 

10205 DATA 141,10,212 

10210 DATA 160,0 

10220 DATA 189,03,04 

10230 DATA 153,22,208 

10240 DATA 232,200,192,5,208,244 

10250 DATA 142,05,06 

10260 DATA 104,168,104,170,104,64 

10270 DATA 00,01,02,03,04,05 

10280 DATA 255 

10320 P=ÖDRfPft$) 

10330 PHI=IHT(P/256) 

10340 PUMP-PHI *256) 

10360 C=ADR(C0L4) 

10370 CHI-INT(C/256) 

>10380 tX0=!C-CHI*256) 

710420 PR$ (24,24) =CHR4 (CLO) 

10430 PR$(25,25)=CHRt(CHI) 

10470 PXt!l=INT I (P+44) /256) 

1O480 PXLß= f P+44)-(PXHI*256} 

10490 Pfti (16,16)=CHRi(PXLQJ 
10500 PRSÜ7,I7)=CHRS(PXHI> 

10510 PR$(36,36)=CHRS(PXL0) 

10520 PRS(37i37)=M((PXHI) 

10560 POKE 512,PLO 
10570 POKE 513,PHI 
10610 PAKE 54286,12B+64 
10650 RETURK 




1 REH . CRIETftL . **** 

2 REH ** ABENTEUER IN BASIC ** 

4 GRAPHICS QtPQKE 710,0:PCKE 7S2>liPQSITI(M 13.10t? -Rlease Mit*! 

5 COM CHARtUÖOO) 

6 CHAR*="ABCDEFSHIJKL HKÖPEBRSTUVUXV'Z 1254567690* =+3! A II/* 

10 CHSET=(PEEK11061-6)*256:CHÜRG=57344 

11 GOSUB 15:GOTO 20 

15 SOUND ÖiAjÜjIO:SOUND 0,O,O,ß:RETURN 

20 FOR 1=1 TG 1022:PÖKE CHSET+I,PEEKlCHQf)G+l):!OT I:GOSUB 15 

25 FOR 1=1 TO LEK(CHARi) 

30 CHPöS=CH5ET* (ASCICHAR4 f I >) -32) *8 

31 6Ü5UE 15 

35 FOR J=G TO 7 

40 GOSUB 15:READ fi:pßK£ CHPOS+J.A 
45 ttEKT J:GOSUB 15:NEKT I 

49 GRAPHICS 2+1ä:CRSET=(PEEK(106)-B> *256 

50 PQKE 756,CHSET/256 
60 GOTO 1000 

100 DATA 0.126,126,102,126.126,102,0 
110 DATA 0,126,98,124,102,102,126,0 
120 DATA 0,126,110,96,96,110,126,0 
130 DATA 0,120,100,98,98,100,120,0 
140 DATA 0,126,102,112.112,102,126,0 
150 DATA 0,126,126,96,120,120,96,0 
160 DATA 0,126,96,110,102,126,126,0 
170 DATA 0,231,102,126,126,102,231,0 
190 DATA 0,126,60,60,60,60,126,0 
190 DATA 0,14,6,6,102,126,126,0 
200 DATA 0,102,124,112,112,124,102,0 
210 DATA 0,240,112,112,114,126,126,0 
220 DATA 0,126,126,126,102,102,102,0 
230 DATA 0,102,118,110,110,102,911,0 
240 DATA 0,126,126,102,102,126,126,0 
250 DATA 0,126,102,126,126,96,96,0 
260 DATA 0,126,102,98,106,100,122,0 
270 DATA 0,126,93,126,126,108,110,0 
2m DATA 0,126,96,126,2,126,126,0 
290 DATA 0,126,126,126,24,24,24,0 
300 DATA 0,102,102,102,102,126,126,0 
310 DATA 0,231,102,102,102,60,24,0 
320 DATA 0,102,102,66,126,102,36,0 
330 DATA 0,102,102,102,60,102,102,0 
340 DATA 0,102,102,102,126,24,24,0 
350 DATA 0,126,126,102,14,24,114,126 
360 DATA 0,62,28,12,12,12,28,62 
370 DATA 0,126,70,12,24,48,126,0 
380 DATA 0,126,70,12,24,12,70,126 
390 DATA 0,66,66,66,126,2,2,2 
400 DATA 0,126,64,112,54,14,2,126 
410 DATA 0,0,126,64,126,66,66,126 
420 DATA 0,126,6,24,96,96,64,64 
430 DATA 0,126,66,102,60,102,66,126 
440 DATA 0,126,46,126,6,12,24,48 
450 DATA 0,126,66,90,90,66,126,0 
460 DATA 0,0,24,24,0,24,24,0 
470 DATA 0,0,126,126,0,126,126,0 
480 DATA 0,24,24,126,126,24,24,0 
490 DATA 54,0,126,102,102,126,126,0 
500 DATA 0,126,60,60,24,0,24,0 
510 DATA 28,28,28,8,62,8,62,99 
520 DATA 24,60,66,60,36,126,66.126 
530 DATA 0.126,66,66,66,66,126,0 

540 DATA 254,170,170,170,170,170,170,254 . — 

1000 PDKE 709.26:? 461’ crystai of <sauarah":POKE 710,16*3+5 



1001 PÖKE 708,120So0T0 1004 

1002 8ESTÜRE 1008:FOR 1=1 TO 19:HEftD fi,LsSß!J«D Q,H.10,1«:FOR N=1 TO LMtiNEXT UiSQUNQ 0,0,0,0 
1005 FÖR Ihl TO 20:HEXT M:N£XT I:RETURN 

1004 DL=PEEK15M>t25fi*PHK(5Ml!SWEBtl712)iFDH «=15 TO 0 STEP -0.5:SOUND 0,50,0, VC SH=1-SN:P0KE 712,ES*tl6*3+A> 

1005 POKE DLU12+SHSNEXT ICPöKE 0L, U2:P0*CE 712>SV:6SSUB 1002 

1008 DATA 162,1,96,1,0,1,162,, 5,182,.5,193,.5,162,1,96,1,0,1,126,.5,144,.5,162>.5»128,1,81,1,0,1 

1009 DATA 121,.5,144,.6,126,.7,162,2 

1010 POS IT [DH 0,2:? |4;’T* APÖCALYPSE 13 IHN1NENT ,EARTK IS DDOHED UNLESS YOU HELP !“ 

1020 ? HA9E HD WEAPOHS,ABAIHST CROWDS OF SADISTIC ROBOTS iHHQARE "5 

1025 ? 06;"8NLV HELL BEND ON PULVERUE YBU i! s 

1026 !F PEEK(532791=7 AHO PEEK(764)=255 TUEN 1026 

1030 ? 46;"}* 

1031 ? 06;' crvstal of morah" 

1040 POSITION 0,3:? fltsCHRSifiSC1 BA *)+32*12a>J* - VßU" 

1041 POSITION 0,5l? #6S"i - RQBEJTANK” 

1042 POSITION 0,7:? 06i'I - ELECTRUEB HALL" 

1043 P8SIT1QN 0,10:? «6iV - BÜÖR* 

1049 80SUB 1002 

1050 IF PEEK153279)=7 AND PEEK(764I=255 THEN 1050 

1059 CLR :NA(i=5:BNA(i=254 

1060 DIN ßX(lQ!,RY(10) f Hi61,V(6):P=0:R=l 

1070 SRAPHICS H16:CHSET={PEEKÜ06)-8)*256:P0I!E 754,EHSET/2541 POKE 7Ö8,26:PÖKE 710,120iPDKE 709,14*3+6 

1071 SflSUB 25000 

1072 FÜR 1*1 TO 10:Rliü)=0:RYiI)=0:HEXT I 
1075 X=18:Y=12 

1080 Position 0 , 2 :? «bUEimimmtmmi* 

1085 FÜR 1=3 TD 2UPDSITI0N 0,1:? »äJ“E”:POSITIDM 19,1:? 46; 0 E":S1EXT I 

1086 FGR 1=11 TO 14:PQSITIDN 0,1:? *6; V": HEXT 1 

1088 POSITION 0,21:? 56 ;“[[[[[t[[[[Utt[rC[[["; 6 CSIlB 1Q90S6ÜTI) 1091 

1090 POSITION 0,0:FOR 1=1 TB HAM:? «6;CW»(DNM>?:NE1ET »? *6:’ M :RETURN 

1091 POSITION 13,0:? 86;"RÖON 'JRäGQSUS 1095 

1092 FOR 1=1 TD R/3;6=INT(RNB(0)*171+1:J=IHT(RHD(Ö)*1B)+3:P9SITIDN B,J:? Ui't'ilEXT ÜGDTO 1096 

1095 POSITION 0,23:? 86; M SCüRE “JpsfiETURN 

1096 GOSUB 1097:GOTO 1099 

1097 GGSU8 9000 

1099 POSITION X,Yi? S6;CHR*(U») 

1100 REH NICHT HEG HACHEN 

1105 BLI=PEEK(?10):IF BLI>122 THEN BLM12 

1106 BLI-SLI+i:PßKE 710,BLI 
1110 ST=STICK(Ö):PQK£ 77,0 
1115 IF SMS THBI Ü82 

1120 H=iST=7 DR ST=5 DR SWH1F H=1 TUEN 1140 
1130 H=-(S7=1I OR ST=9 ÖR 5T=löi 
1140 9= (SM 3 OP ST=5 GR ST=9Ü!F 9=1 MN 1150 
1145 9=~(ST=14 OR ST=1Ö OR ST=6) 

USO A=X+H:B=Y+9 

1160 LÖCATE M,7ÜF Z=ÄSC(*tM OR Z=fiSCt 1 'X n > THEH GOTO 10000 
U70 IF Z=ASC('/ K 5 THEN GOTO 15000 

1180 A=X:B=Y:X=)(vH: Y=Y+V:CDLBR A3CC "UPLGT A,B 

1181 60SU8 15(P0SITIDN X,Yi? S6;CHRSiDHAN):P=P+5iSCSUS 1095 

1182 IF R<4 THEN CL0CK»23D 

1190 IF PEEK(20)>CLGCK THEN POKE 20,ö:GÖSUß 20000 

1200 GOTO 1100 

9000 H=R: IF H>10 TUEN H=10 

9005 ftHZH=#l 

9010 FOR 1=1 TO AKIRiRXm=INHR»B(01*!7)+l:8Y(I)si»T(RMDI0)*18)+3:CDL08 ASCi“!“)iPLOT RX(I),RYII):NEXT I 
902Ö IF M<10 THEN 9050 

9030 FÖR 1=11 TD R:B=IHT(RND(OM7)+l:C=IHTItlHS(Ö)*18)+3:COLOR ASCCZ’URLDT BEHEXT I 
9Ö5Ö RETURN 

10000 DL=PEEK(560) +256*PEEK 1561):3V=PF,EK(712):FÖR «=0 TO 99:SOUND 0,10,4,10:SH*l~SttPDKE 712,5H*ü6#3+6) 

10005 PQKE BL, 112*3«:HEXT ttsPOKE DL,112:PÖKE 712,SV 

10010 N8=P£EKmi)JFDR 1=48 TQ 63:P0KE TiUUSÖUNB 0,1,8,10^011 H=1 T8 15:IEXT SC HEXT USDIINB 0,0,0,0 
10020 PÜKE 711 ,WÜ:COLGS 32:PLB7 X,YiX*18iY=12i!MN=MIH 





10022 IF HfiW=0 THEN 24000 
10024 SOSUB 1090:BDTO 1099 

15000 FÖF1 1=11 TO HiPOSITIOH 0,Ü? IW "iSDIWII Ü,I*16,0,6:FDR 1=1 TO 40!HEXT NiNEXT I 
15010 M>M00:R=R*1 
15020 IF R=6Q THEN 30000 

15025 X=18:V=12:CL0CK=CL0CK-5!1F C10CK<2 THEH CLÜCK=2 

15030 GOTO 1070 

20000 )1=R! IF X>10 TUEN 11=10 

20005 FCR 1=1 TO ANZRsH=0iV=0 

20006 IF RX(II=19 AND RY(I)=23 THEN 20070 

20010 IF xxtxm THEN H=ÜGOTO 20013 

20011 IF X=RXU) THEN H=0:BDTO 20013 

20012 H=H-1 

20013 IF Y>RV(1) THEN V=li60T0 20020 

20014 IF Y=RY(I> THEH V=ÜißöTQ 20020 

20015 V=V-1 

20020 LÖCftTE RX(I1+H,RY(1)+V,Ö 
20030 IF {NMAN THEN 10000 

20040 IF 0=37 Oft 8=219 THEN P=P+5OsG0SUB 1095ifi0T0 20047 
20045 GOTO 20050 

20047 CQLÜR 32iPLBT HXII),ftY(I)!FDR N=1 TO 15:SßUND 0,0,0,»:NEXT N;SOUND O,Ö,0,0!RXU)=19:RY(I)=23sK»0ilM> 

20048 GOTO 20070 

20050 COLÜR 32!PLOT RXtD.RYtlt 
20055 RX(n=RXUH-H!RYiI)=RYÜ)+V 
20060 COLÜR 37!PLOT RXU),RY(II 
20070 «EXT I:RETURN 

24000 GRAPHICS 2+16!CH$ET=(PEEKÜO6I-81*256!P0KE 756,CHSET/256 
24005 PGKE 708,26:P0KE 709,120JPDKE 711,50 
24007 POSITION 5,2:? #6! I, BANE OVER“ 

24010 POSITION 5,5i? $6i"jBur score* 

24020 PQ5ITIQN 6,6:? I4;P 
24030 IF PEEK(53279)06 THEN 24030 
24040 P=0!NAN=5sR=iJGDTO 1070 
25000 ? »6!'}‘:POSITION 6,12i? iös’jroy enter 


ROffif “iRiGOSUB 1002:? *6;»}":R£TUftN 



1 RER ROERTERRATEN : IRRER EIN PROBELAUF 

2 CLR 


3 DIR A(30),8(90).C(39)>M(9t.H(9) 

4 ? * SU HD-'SCHREI SES CJ/N) "iS INPUT fiüIF A*= B tf* TUEN U_=tl 
10 FDR Y=1 TO 30 

20 AiYI^OsHEKT Y 

30 GRAPHICS 2 

40 OPER "}" 

45 IF LL-Ö THE« PÖKE 708,0 
50 GET HE,AeIF A=155 TUEN 90 
60 G=G+liB(6)“AJ? WfCHR«(A}; 

70 GOTO 50 
90 GDSUB 300 
95 POSITION 0,0 

100 FOR U-l TD Gi? M;CHR$(B(C(II)));t|EXT UiY=2:X=0:POKE 70B,40 

120 POSITION X,Y:RER X=fiBSTANS Y=HOEHE 

123 PORE 694,0 

122 IF V=G THEN 1000 

130 GET «1,8 

131 fi=R+l 



? ttiCHM(B»:\MI*lsiF BOBfVI THEN V=V-1JF0R K=0 TO BOiSOUND 
136 SM 0,0,0,0 
140 X=X+1:G0TD 120 
160 IF 0=6 THEN 1000 
300 FÜR 0=1 TO G 

310 H*IHT(RH0(Ö)*(6+l))iIF A{H>-1 THEN 310 
320 fi(H)=lsH=N+l;C!ti)=H 
330 HEXT 0:RETURN 

400 6RAPHIES 0 

401 FÜR U=0 TO Gs? BtßlsNEXT II 
W PQKE 694,0 

iÜÜO?TO!!< YOU NEED *?R+l-fi 
1100 OOBE #1 


0,90,10,1OSHEXT K; POSITION X,V:X«H-i:? |6i* 


1 * 

f 


10 RER ** DREHENDER, FARBIGER BALL ** 

115 DIR CI8I:GRAPHICS lösFOR 7=704 TD 712sREAD R 

116 R=R*l6+BsC(Z-794)=R;PöKE Z,ReHEXT l 

117 DATA -,5,1,3,4,5,7,9,12,13 

UB LIH=22:72=3.14159*2/LIH:CDL=3:E1=1 

119 DIR D(LIR,2) 

120 GOSUB 1500:FOR 9=1 TG UH: T=T+T2s SOSUB 15ÖÖJNEXT 9 
490 GOTO 1Ö00 

490 RES=795 

500 FOR X=i TO BsPQKE REG.CfXS:RE6=R£G+lslF SEGJ712 THEN 
510 HEXT X:RE8=RE3+lsIF REE>712 THEN RES=705 
520 PÜKE 77,0:GOTO 500 
1000 RER 

1005 FOR E=1 TO 10;E2=INT(E/2-0.5) 

1010 FOR R=E1 TD E1+E2:CR=ß-CGLsIF CR=0 THEN CR=B 
1015 V=OsCGLGR CRsGOSUB 2ÖOO:PLOT X.Y 



1020 FDR 9=1 TO U!f:T=T+T2:G0SUB 2000 
1022 DRAHTO X.VtlF V>=LIH/2 THEN COLDR CDL 
1025 NEXT VsNEXT RiCOL=COL+liIF C0L=9 THEN CBL=! 
1030 El=El+IHT(E/2t0.5):NEXT E 
1200 GOTO 490 

1500 DIV,l)=SINtT)iD(V,2i=CQS(T):RtTURN 

2000 X=i30-R1$0.6*D(V,11+40 s Y=60*D!V,2)+B0s RETlfftN 


0 m ** ATARI ZEICHEN w 
13 BIN X$(40) 

400 1=45 

1000 GRAPHICS 23iSETEGLOR 4,ö,ö:SETCÜL0R l,ü,14:C0LDR 2JSETCDL0R 0,0,0 

1044 DATA 40,55,41,74,81-07,93,104.0 

1044 DATA 48,54,41,74,80,88,93,105,0 

1048 DATA 47,57,41,74,79,89,93,106,0 

IÖ50 DATA 44,50,61,76,78,90,93,107,0 

1060 DATA 45,50,54,59,07,70,77,82,86,91,93,96,103,108,0 

1042 DATA. 45,49,55,59,67,70,77,81,87,91,93,96,104, lOB.Ö 

1064 DATA 45,40,56,59,67,70,77,80,88,91,93,96,104,108,0 

1066 DATA 45,48,56,59,67,70,77,80,88,91,93,96,104,108,0 

1068 DATA 45,48,56,59,67,70,77,80,88,91,93,96,104,108,0 

1070 DATA 45,48,56,-59,67,70,77,80,88,91,93,96,103,108,0 

1071 DATA 45,59,67,70,77,91,93,107,0 

1072 DATA 45,59,67,70,77,91,93,106,0 

1073 DATA 45,59,67,70,77,91,93,105,0 

1074 DATA: 45,59,47,70,.77,91,93,104,0 

1075 DATA 45,40,56,-59,67,70,77,90,88,91,93,96,100,105,0 

1076 DATA 45,48,56,59,67,70,77,80,00,91,93,96,101,106,0 

1077 DATA 45,48,56,59,67,70,77,80,08,91,93,96,102,107,0 

1078 DATA 45,48,56,59,67,70,77,80,88,91,93,96,103,108,0 

1079 DATA 45,48,56,59,67,70,77,80,8B,91,93,96,104,109,0 
1090 DATA 45,48,56,59,67,70,77,80,88,91,93,96,105,109,0 
1032 DATA 1,1 

1085 1=1+1 

1090 READ XÜF X=0 TUEN X=112*V=li5sBDTQ 1200 
,1100 READ y 

1110 IF X=1 AND Y=I THE« 3000 
1115 CÖLGR 1 

1200 PLOT X-UDRANTQ Y,I 
1210 IF X=U2 THE« 1230 
122C GOTO 1090 
1230 GOTO: 1005 
3000. REH LOGO 
3001 COLOR 2 

3010 T=5iB=6l:F0R R=80 TO 84 

3015 PLOT R.TiDRftNTß R, 8: PLOT 160-R,T:DRANT0 160-R,B;NEXT R 
3020 FOR R=86 TO U5ÜF R>90 TUEN. T=2Ö+S0R(626-{il6-R)*(116-R)) 

3030 B=30*S8R(962M116-R)*Üi6-R)) 

3032 PLOT R,TiDRAHTO ft,0:PLOT 160-ft,T:DRANT8 160~ft,8slOT R 
3040 SETCGLQft 0,0,14 

3046 POKE 1664,232: POKE 1665,142:POXE 1666,10tPOKE 1667,212:POSE 1660,142tPOXE 1669,2t: POKE 1670,208 

3047 POKE t67t,76:P0KE 1672,128:P0KE 1673,6 
3050 PRINT USR11664) 

4000 END 


15 RE» **** HALLELUJA «**' 

10 fiOSUB 30200;POKE B7,2:PtJSITIQK 5,1:? «AfjullitiUBk* 

20 POKE B7>1[POSITION 1,7:? #6?"(»anders NessiahlL'PQKE 752,1 
30 POKE 07,0:FÜR Z=i TO 3000:HEXT l 

100 8RAPHIC8 2l:S£TC0L0B 0,7,OfSETCOt.OR l,!2,0;SETCßL0R 2,15, lOJSETCDLOB 4,0,0 
110 TRAP 900 

120 COLQR 1 sPLOT 79,20:DRAHTQ 79,0:DRft»TQ OPPOSITION 0,20:POKE 765,l:XI0 10,10,0,0,'S:“ 

130 CQLOR 2:PLOT 79,47:BRfiNT0 79,21 sDRANTQ 0,2UPOSITIOH 0,47:POtCE 765,2:XIG 18,16,0,0,"5: * 

140 COLQR 3:F0R Z*0 TO BsREflD X:PLOT XPIXtAttT!) 79,ZiHEXT Z 
150 COLOR 2 s PLOT 10,20: DRAtfTO 30,2«: PLOT 13,19:OR«TO 27,19 

160 COLQR 4:PLOT lMSsBRANTB 14, 1B: PLOT 13,16:BRAHTD 15,16:PLQT 25,15:DRAMTB 25,1B:PLOT 24,1 i:ORMfTO 26,16 
170 PLOT 17,14:DRAHT0 22,14:PLOT 17,15:D8ANTG 22,1S:PL0T 19, !2:DRAirTQ 19, 18: PLOT 20,12:W»NTü 20,1B:Z=Ö 
ISO N=0 

■*200 REAß J,K,L,»:SOUND 0,J,10,4:SGUND i,K,10,4:SfllWD 2,L,10,4:S0UW) 3,»,10,4 

210 Z=Z+2:IF Z)7B THE» T“ 2: (4=K+2: SET COLQR 0,7, H 

211 IF J=0 THE» J=IÖ 

212 IF K=0 THEN K=10 

213 IF L-0 THE« L=10 

214 IF |M) THE« H*10 

220 COLOR 3: PLOT Z, IHT1J/10+26) :PLQT Z+l, INT W10+26): PLOT Z, INT <K/ 10+26):PLOT Z+MKTIK/10+26) 

225 PLOT Z,INTfL/10+26):PLOT Z+1,INT(L/10+26):PLOT Z,INT(H/10+26):PLOT Z+l.INTIH/10+26) 

230 FOR T=f TO 25:NEXT T 

240 COLOR 2:PLOT Z,INTU/10+26):PLQT I+l,lNT(J/10+26)JPLOT Z,INT(K/10+2A):PLOT Z+1,1NTIK/10+261 
245 PLOT Z,INTiL/10+26):PLÖT Z+MNT)L/10+2A):PLBT Z,INT(»/10+26):PLOT Z+MNT(H/10+26):SOTO 200 
<.800 READ J,K,L,H:SOUND J], 3,10,4: SOUND 1,K,10,4:SEHM 2,L,lO,4:SülffiD 3,N,10,4:FÜR Z*1 TO lOOeHEXT ZsßDTO 1000 
900 SETCQLOR 4,0,15:FDR Z=0 tfl 3:S0ü«D Z,0,0,0:NEXT ZsFOR Z*1 TO 2OÖ0:NEXT Z:RUN 

999 DATA 71,71,72,72,73,73,74,76,78 

1000 DATA 53,72,42,217,53,72,42,217,53,72,42,217,72,72,53,173 
1010 DATA 64,81,53,162,72,85,53,217,0,0,0,0,0,0,0,0 
1020 DATA 53,72,42,217,53,72,42,217,53,72,42,217,72,72,53,173 
1030 DATA 64,01,53,162,72,85,53,217,0,0,0,0,53,72,53,173 
1040 DATA 53,64,40,162,53,72,42,217,0,0,0,0,53,72,53,173 
1050 DATA 53,64,40,162,53,72,42,217,0,0,0,0,53,72,53,173 
1060 DATA 57,81,47,193,53,85,72,217,53,96,72,144,57,96,72,144 
1070 DATA 53,85,72,217,53,85,72,217,0,0,0,0,0,0,0,0 
1030 DATA 47,72,57,144,47,72,57,144,47,72,57,144,72,72,47,114 
1090 DATA 42,72,53,108,47,72,57,144,0,0,0,0,0,0,0,0 
1100 DATA 47,72,57,144,47,72,57,144,47,72,57,144,72,72,47,114 
1110 DATA 42,72,53,100,47,72,57,144,0,0,0,0,47,72,47,114 
1120 DATA 42,72,53,108,47,72,57,144,0,0,0,0,47,72,47,114 
1130 DATA 42,72,53,108,47,72,57,144,0,0,0,0,47,72,47,114 
1140 DATA 42,72,53,108,47,72,47,114,53,72,42,12B,53,76,64,128 
1150 DATA 57,72,47,144,57,72,47,144,0,0,0,0,0,0,0,0 
1160 DATA 72,72,72,144,72,72,72,144,72,72,72,144,72,72,72,144 
1170 DATA 64,128,64,128,64,128,64,128,57,114,57,114,57,114,57,114 
1180 DATA 53,108,53,108,108,108,108,217,53,108,53,108,33,108,53,108 
1190 DATA 53,108,53,108,53,103,53,108,57,114,57,114,57,114,57,114 
1200 DATA 64,128,64,128,64,128,64,128,64,128,64,128,64,128,64,128 
1210 DATA 72,144,72,144,72,144,72,144,0,0,0,0,47,72,72,114 
1220 DATA 53,72,42,108,57,72,47,144,0,0,0,0,47,72,47,114 
1230 DATA 53,72,42,108,57,72,47,144,0,0,0,0,47,72,47,114 
1240 DATA 42,72,53,108,47,72,57,144,0,0,0,0,47,72,47,114 
1250 DATA 42,72,53,108,47,72,57,144,0,0,0,0,0,0,0,0 
1260 DATA 0,108,53,217,0,108,53,217,0,108,53,217,0,108,53,217 
1270 DATA 0,96,47,193,0,96,47,193,0,85,42,173,0,85,42,173 
1280 DATA 0,81,40,162,0,162,81,162,0,81,81,162,0,81,81,162 
1290 DATA 0,01,81,162,0,81,81,162,0,85,85,173,0,85,85,173 
1300 DATA 0,96,96,193,0,96,96,193,0,96,96,193,0,96,96,193 





1310 BATft 0 4 084 08,217,04 08 4 08,217,0,0,0,0,53,72,53473 
1320 DATA 53,64, WM62,53,72, $2,217,0,0,0,0,53,72,53,173 
1330 DATA 53,64,40,162,53,72,42,217,0,0,0,0,53,72,53,173 
1340 DATA 53,64,40,162,53,72,42,217,0,0,0,0,53,72,53,173 
1350 DATA 53,64,40,162,53,72,42,217,0,0,0,0,0,0,0,0 
1360 BATft 53,0,0,0,53,0,0,0,53,0,0,0,53,0,53,0 
1370 BATft 47,0,57,0,47,0,72,0,42,0,0,0,42,0,53,0 
1380 DftTft 40,0,64,0,01,0,64,0,40,0,0,0,40,0,47,0 
1370 DftTft 40,0,57,0,40,0,72,0,53,0,53,0,53,72,53,0 
1400 DATA 47,01,53,0,47,96,53,0,47,72,57,0,47,72,57,144 
1410 DATA 53,72,53,173,53,72,53,217,0,05,35,0,53,100,40,0 
1420 DftTft 57,0,72,144,72,96,72,144,0(114,72,144,57,144,72,144 
1 ' DftTft 53,0,64,12B,53,B5,64,12B,47,96,57,04,47,81,57,114 

1^40 DftTft 72,05,53,100,72,05,108,217,53,64,53,103,57,72,53,108 
1450 DftTft 64,76,53,108,64,96,53,108,0,72,57,04,47,72,57,114 
1460 DATA 53,72,64,108,57,72,64,108,53,76,64,10B,53,76,64,100 
1470 BftTfl 57,72,72,144,37,72,47,144,47,0,57,0,57,96,72,144 
1400 DATA 0,72,0,173,72,85,53,217,53,0,53,0,72,85,53,108 
1490 DftTft 0,96,0,04,57,04,47,144,47,0,57,0,57,0,72,0 
1500 DftTft 0,108,53,0,72 408,53,0,42,108,53,0,53,108,33,108 
1510 DATA 0,96,47,04,57,96,47 444,53,85,42,0,72,85,42,108 
1520 DATA 0,Bl,404 28,64 4 62,81462,47,81,40,0,47,81,40493 
1530 DATA 0,81,404 44,57,81,40 444,53,85,42,0,53,85,42 428 
1540 DATA 53,96,474 62,53,96,47493,57,96,47 444,57,96,47444 
1550 DATA 534 08,53 4 73,53,72,53473,53,85,53,0,534 08,424 08 
1560 DftTft 53,0,40428,53,64,40462,53,64,40428,53,64,404 14 
1570 DATA 53,72,424 08,53,72,42408,33,72,424®,53,72,42408 
1580 DATA 53,81,644 62.53,81,64462,53,Bl,64462,53,81,64462 
1590 DATA 53,81,64 4 62,53,8i,64462,53,81,64462,53,01,64462 
1600 BATß 53,85,72,217,53,85,72,217,53,85,72,217,53,05,72,217 
1610 DATft 53,05,72,217,53.B5,72,217,53,05,72,217,53,85,72,217 
1620 DftTft 53,85,72,217,53,85,72,217,53,85,72,217,53,85,72,217 


1630 DftTft 53,85,72,217,53,85,72,217,53,85,72,217,53,85,72,217 

30200 SRAPHICS 0:SETCOLOS 2,64sSETCQL0R 4,64:US=PEEK 1560) +PEEK(561)*256+4:PÖKE U8-1,70:P0KE UB+2,7:P0KE ÜB+3,7 


30210 FOR 07=4 TD BsPDKE UZ+UB,6:HEXT U2:PßKE UB+22,65:POKE UB+23,P£EKi560):PK<E UB+24,PEEKt5tl):SETC0LOR 3,0,6 


30220 RETURN 





5 REH ***** HUHNELFLÜG ***** 

10 TRAP 19799:60SU8 30300 

20 GÖSttjB 30200iPÖKE ß7,2sPOSITIOH 3,1:? fe* HUWELFLUß" 

30 POftE 87» I s PT3KE 752,1 
40 POKE 87,ö 
100 GEISfJB 30310 

120 *752 75Ä,!iC/255+25S£TCMH 15,2:SETGöLCR M4,12:SETCOLOR 2,11,0:SETCDL0R 3,3,Ö:SETCÜL0R 4,8,4 

140 L'ÜLÖR 215:FQ8 1=14 Tfl 19: PLOT Ü,Z:BRftWTO 19, Z: HEXT 2 

150 FDP 7=0 TO 9:1 F 7=5 GR 7=7 THEfä HEXT l 

IW) CBi.GR 130:PLOT 7,12:C0LÖR 214:ROT 2,13:«EXT l 

170 CGLGR 4:PLOT 14,8:CßL0E 3:PLOT 15,8:CQU3R 5:PLOT 16,ß:C0L0R 3:PLOT 14,9:itäffl(TD 16,9 
180 CQLÖR 87:FOR 7=11 TO 15 STEP 2:PL0T 12,7:BRAHTQ 18,Z!fEXT ZiCOUffi 4sf*tOT 13,9:CflU» 5:PL0T 17,9 
190 CßLöft 3:FÖR 2=10 Tß 14 STEP 2:PL0T !2>Z:BRA*T0 IS.ZsNEXT 7:M 4sPLOT 12,iO:COU)R SsRLOT 18,10 
^200 COLGR 1: READ UN: PLOT UH/9,12-UN/15:SGUN& 0,U(j,10,B 
210 FOR 7=1 TO 15:NEXT 7 

220 SOUND 0,0,0,0:CHLOR o:PLST tTN/9,12-UH/l5:6ÖTQ 200 

1000 DATA 0,0,0,0.(>,0,0,0 

1001 DATA 216,81,115,214,116,30,31,14 

1002 DATA 40,146,146,214,254,124,56,16 

1£»3 DATA 170,170,170,170,170,170,170,170 

1004 DATA 0,2,10,42,42,170,170,170 

1005 DATA 0,128,160,168,168,170,170,170 

1010 DATA 17,19,151,222,80,112,16,16 

1011 DATA 255,253,255,255,255,255,253,255 A 

!04ö DATA 96-102,108,114,108,114,121,128,96,102,100,114,108,114,121,123 \ \ 

1060 DATA ?6,i02,108,lH,121,I28,136,144,i53,144,136,128,12M14,108,102 / ' \ 

1080 DATA 96,102,108,114,121,91,76,102,96,102,108,114,121,114,108,102 "Baum. \ 

1100 DATA 96,102,108,114,121,91,96,102,96,102,108,114,121,114,1(^,102 vlStew I ' A 
1120 DATA 96,102,108,114,103,114,121,128,121,114,108,102,96,91,76,102 V \\ 

1140 DATA 76,102,108,114,108,114,121,128,121,114,108,102,96,85,81,76 \■ '' \ 

1160 DATA 72,76,01,85,91,68,72,76,72,76,81,85,91,85,81,76 W " 

1180 DATA 72,76,81,85,91,60,72,76,72,76,81,85,91,85,81,76 *%_, v jMSlI [/ 

1200 DATA 72,76,81,85,81,85,91,96,91,85,81,76,72,68,72,76 X / 

1220 DATA 72,76,81,85,91,96,102,96,91,85,81,76,72,68,72-76 

1240 DATA 72,144,144,144,144,144,144,144,136,153,136,153,136,153,136,153 JlffiSuA 

1260 DATA 144,144,144,144,144,144,144,144,136,153,136,153,136,153,136,153 

1280 DATA 144,136,144,153,144,336,144,153,144,136,144,153,144,136,144,153 V "^S. ß 
1300 DATA 144,136,128,121,114,121,128,136,144,136,128,121,114,108,102,96 " 

1320 DATA 108,108,108,108,108,108,108,100,102,114-102,114,102,114,102,114 Xj 

1340 DATA 108,108,108,108,108,108,108,108,102,114»102,114»102,114,102,114 

1360 DATA 103,102,108,114,108,102,108,114,108,102,108,114,108,102,108,114 

1380 DATA 108,102,96,91,85,91,96,102,108,102,96,91,85,81,76,72 

1400 DATA 53,57,60,64,68,50,53,57,53,57,60,64,68,64,60?57 

1420 DATA 53,57,60,64,60,64,68,72,69,64,60,57,60,57,53,50 

1440 DATA 47,50,53,57,53,57,60,64,60,64,68,72,76,81,85,91 

1460 DATA 96,91,96,102,96,91,96,102,96,91,96,102,96,91,96,102 j 

1480 DATA 96,91,96,102,96,91,96,102,96,91,96,102,96,91,96,102 / 

1500 DATA 47,47,47,47,47,47,60,60,72,72,91,91,72,72,60,60 " 




25 


fcf 
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1520 DATA 47,47,47,47,47,47,60,60,72.72,91.91.72,72,60,60 
1540 DATA 47,47.47.47.47.47.47,47,47.47,47,47.47,47,47.47 
1560 DATA 96,96,96,96,96,91,85,81,76,72,68,64.60,57,53,50 
1580 DATA 47.50,53,57.60,45.47.50,47.50,53,57.60.57,53.50 
1600 MTft 47,50.53,57,60,45,47,50,47,50,53,57,60.57,53,50 
1620 DATA 47,50,53,57,53,57,60,64>60,57,53,50,47,45,47,50 
1640 SftTft 47,50,53,57,53,57,60,64,60,57,53,50.47,42,40,37 
1660 DATA 35,37,40,42,45,33,35,37,35,37,40,42,45,42,40,37 
1630 DATA 35.37,40,42,45,33,35,37,35,37,40,42,45,42,40,37 
1700 DATA 35,37,40,42,40,42,45,47,45,42,40,37,35,33,35,37 
1720 DATA 35,37,40,42,47,45,42,40,37,35,33,31,29.27,25,24 
1740 DATA 23,24,25,27,29,21,23,24,23,24,25,27,29,27,25,24 
■"0 DfiTA 23,24,25,27,29,21,23,24,23,24,25,27,29,27,25,24 
*nJÖ DATA 85,31,76,72,68,64,60,57,53,57,60,64,63,72 
1800 DATA 76,72,68,64,60,57,53,50,47,45,47,50,47,45,47,50 
1820 DATA 47,Bl,76,72,68,64,60,57,53,57,60,64,60,64,68,72 
1840 DATA 76,72,68,64,60,57,53,50,47,45,47,50,47,42,40,37 
1860 DATA 35,37,40,42,40,42,45,47,45,47,50,53,57,60,64,68 
1830 DATA 72,76,81,05,81,85,91,96,91,96,102,108,114,121,128,136 
1900 DATA 144,136,144,153,144,136,144,153,144,136,144,153,144,12B,121,103 
1920 DATA 96,91,96,102,96,91,96,102,96,91,96,102,96,85,81,76 
1940 DATA 72,81,85,91,96,102,108,114,121,128,136.153,144,136,128,121 
1960 DATA 114,108,102,96,91,05,81,76,72,68,64,60,57,53,50,47 
1980 DATA 35,35,35,35,35,35,35,35,72,72,72,72,96,96,96,96 

19999 SOU® ö, 144, iO.SiCGLGR 1:PLÜT S5,7sR£STÜRE :FOR 1=1 TG 64JREAS X!tOT Mtf 19999sSOUND 0>0,0,0 

20000 FGR 2=1 TO 400ÜEXT Ü8ÜT0 110 

30200 SRfiPHIEB OiSETCBLGR 2,8.4:SETC8LßR 4,M:UB=PEEKt560)*PE£K(56i)*256H:PDKE lffl-l»7ö:P0KE UB+2»7iPGKE UB+3,7 
30210 FOft U7=4 TD 8:POKE UB+U2.6i»EXT UZsPOKE ÜB+22,65sPOKE UB+23,?EEKI560i:P(lE US+ 24 ,PEEK(561>:SETCOlßR 3,3,0 
30220 SETCOLQR 1,5,0:RETURN 
30300 POKE 106.PEEKI1061-5:RETtKN 

30310 UO256*(PEEKU06)+l) iFOR U2=ö TO 1023: POKE UC^UZ»PEEJC (S7344HIZ > s HEXT UI 
3Ö320 POKE 756,liC/256:FGR UI=512 TD 559:READ UYiPUKE UC^UZ,UY?PEXT UI 
30330 FÖR UZ=944 TO 959:READ DY:POKE UE+UZ,UYiMEXT UZsRETlM 



1 

10 REH «** SOLEflftUSCii «h 




130 DATA 56,56,16,56,84,16,40,68 
HO DATA 170?Sä, 170,85,170,85.170»35 
150 DATA 0,28.60, 110.i2i.fc2, 23,0 
160 DATA 129,66,36,24,24,36,66,12? 

170 DATA I2B.64,32,16,8,4,2,1 

180 DATA 1,2,4,8,16,32,64,I2B , 

190 DATA 16,16,124,16,16,16,56,124 * 

200 DIH CHfeR$t8),BHICBI5,2) 

210 CHARS=* *+"-< >£“:HINER=5 ~ _ 

220 GRAPHICS HlfcSETCQLÖR 4,6,4:StTCDLGR ö,i,10:SETC0LöR 3,4,10 
230 ? 46;'GOLDRAUSCH! a tSETCÖLQR 2,3,0 
240 POSITION 2,5s? «i 'bitte Birten “ 

245 FOR 2=1 TO 100Ö:N£XT l 
250 C8SET=tP£EXÜ06>-8)#256:CHÖRG=57344 
260 IF PEEK(CHSET*9K>0 TUEN 340 
270 FOR 1=0 TO 511(PAKE CHSET+T,PEEK(CBÖRB+IJi(EXT I 
280 FÜR 1=1 TO 7 

290 CHP0S=CK5ET+iftSC(CHflft*Ü>)-32)*8 
300 FOR J=ö TO 7 
310 READ A:POKE CHPQ5*J,A 
320 «EXT JtNEXT I 

330 FOR 1=32 Tß 39:PÖKE CHSETH,255-PEEK(DKORB+1):HEXT I 
340 PÖKE 756.CHSET/256 
350 POSITION 0,0:? 46;’HEN!5 
360 SiU6SETS=0 

370 FOR I--1 TO 22: FOR J=0 TO 19 

3BÖ IF RWD101 >0.4 THEN CHLOR ftSC(CHAR$(2))tl28sPLÖT J.IiflOTO 400 
390 IF I>3 TUEN COLOR ASC(CHAR413)):PL0T J.IiRUBGETS'lflJGGETS+l 
400 NEXT JiNEXT I 

410 CHARBES=10:POSITION 0,23:? to'iCHARBESI'JCHARGESi 
420 XPOS=U :YPGS=Ö:ERF=0:fiOTö 590 
430 RER HAUPTSCHLEIFE 
440 ST=STlCK<ö):TR=STRISfö) 

450 IF P£EK!2Ö!)15 THEN POKE 709, (INT(16*R«D10))*16H0IiP0KE 20,0 
460 IF EHF THEN SOUND l,T,IÖ,ß:T=T*(T<8I+2:TI=TI+L:lF TI>200 T1€N SOUND 1,0,0,0:6010 
470 IF 1-TR THEN IF EHF=Ö THE« 020 
480 IF ST=15 TUEN 440 
490 9=-(ST=J4)#(YPOä>0)-KST=13)=KYPDS(22) 

500 H=-(ST=111*iXPCS>Ü)+(ST=7)#(XP2S<19) 

510 CHLOR 32:PLOT XPQS.YPÜS 
520 XP0S=XPB5+H: YPÖS=YPDB+V 
530 LOCATE XP05,YPÖS,NK«T 
540 IF HHftT-32 THEN 590 

550 IF HHAT=ASC1CHAR4<3)) THE« GDSÜB 64O:B0TÜ 590 
560 IF HHAT=ABC(CHA8St7)) THE« SOSUfi 760:6DTD 590 
570 IF HHAT=4 THEN SQSUB 670:REN CASH IN! 

580 SDUND 0,100,12,8:FOR «=l TO 20:NEXT N:SOUND O,0,0,O:XPtB=ffBS*H:YPOS=YP0S-V5COL0R 138iPLBT XPßS,YPOS:SOTO 440 
590 COLOR 138;PLOT XPOS.YPOS 

600 IF EHF AND YPßS=0 THEN EHF=0:CQL0S 32:PLOT XPOS.YPQS:SOUND 1,0,0,0(0010 410 
610 FOR N=B TO 0 STEP -ÜSOUND 0,««5,12,«:HEXT « 

620 GOTO 440 
630 GOTO 630 

640 FOR «=15 TO 0 STEP -USQiM 0,20,10,HsffiXT N:G0LD=6QLD+1:NU6ETS=«U6BETS-1:IF NUGGETS« THE» 

0.23:? @6;“gold "ffiOLD;’ -^C 


T 




650 POSITION 
660 RETURN 


\ ' 


n i 


- y'i 




670 REH EIHZAHLEN 
600 SQÜHÖ 2,4,10,1 

690 FÜR ti-lö TD 5 STEP -LiFÜR 1=15 TG 0 STER -1:SOUND 0,K,10,1:HEXT ÜOT H 

7öö SOUND 2,0,0,0 

710 CftSH=CASHt60ÜKCHfiRSESiGGL)}=0 

720 80SUB 650 

730 POSITION 14,0:? 865CA&! '■ 

740 IF NU6GETS=0 THEN PÖP JfiOTÖ 360 

750 RETURN % L <— 

760 REH HOLE DAS BOLD DES TOTEN GDLDGRAEBERS 

770 FQR 1=5 TG 1 STEP -1 * Jf /"^ , -^S 

780 IF 8HICH (1,0 > =XPQS AND HR1CtH I, I) =YPÖS THFJ HOO % \ f W [ 1 

790 NEXT l: RETURN / H j|X F?T / | $ 

800 EDLB=60LDfNHICH(I,2):B0SUB 650 ■, -h \ / fY 

810 RETURN ® *** 

820 REH EXPLDS1GN i7A ¥ -~=r-= =HidU^J3== 

830 XP=5(P0StH:YP=yPüS+V:lF YP=0 TNEN 440 
840 RES7DRE 850 

850 DATA 0,0,-1,-1,1,1,-1,1,1,-i 
960 FQR 1=1 TD 5:R£Aß A,B 

870 IF XP+A>=0 AND XP+fi<=19 AND YP+B>=1 AMD YP*B<=22 THEN LGCATE XP+A,YP+B,ZZ:IF ZZ=45 TUEN NUGG£TS=NU6GETS-1 
880 HEXT I:CÖLÖR ASC(CHA8*!41) 

890 IF XP>=Ö AND XP<20 TUEN PLOT XP,YP 

900 COLÜR ASC<CHAM(5)MF YP>2 AND XP>0 THEN PLOT XP-i,YP-l 

910 IF YP<22 AND XP<19 THEN PLOT XP+l.YP+l 

920 CßLOft ASCICHAR$(6)):IF YP>2 AND XP<19 THEN PLÖT XP+1,YP-1 

930 IF YP<22 ANS XP>0 THEN PLOT XP-l,yM 

940 DL=PEEK1560)+256*PEEK1561):SV=P£EK(7121 

9£ö FÜR ö=15 TO Ö STEP -Ö.5:S3UND Ö,5O,0,H:SH=1-SN:PBKE 712,SS* 14*16+0) :PGKE R,112*SH:t£XT S 

960 PPKE DI.,!12:PDKE 712,SV 

980 CCLOR 32:IF XP)=0 AND XP<19 THEN PLOT XP,YP 

935 IF YP>2 AN» KP>0 THEN PL8T XP-MP-l . i““7“ "7 \ 

990 IF YP<22 AND XP<19 THEN PLOT XP+l.YFtl f f -Ä A (\j j 

1000 IF YP>2 MD XP<19 THEN PLOT XP+UYP-i ' -ft.r 

1010 IF YR<22 A?ffi XP>0 THEN PLOT SSP-l-YP+l j r 

1020 EOLöR 138: PLOT XPQS.YPOB \ \ 

1030 FOR 1=1 TO 20 V' ^ 

1040 fiX=INT(20^RNÖ(0))sRY=SNT(22*SNDi0)+l) ^ -—i, _ J 

1050 LGCATE fiX,RY-i, 22 ------ . j*i \ X 

1060 LOCÄTE RX.RV,Z:IF 2=32 AND 22=171 THEN COLQR 171:PLOT RX.ISY / 

1070 IF Z=130 THEN H30 > _ __ 

1080 HEXT I . 

1090 GHARGES=DMMES-l: POSITION 18,23s? #6s CH ARGES) * ■; 

HOO IF CHAflSES)0 THEN 440 V. iA 

1110 TI=0:EHF=lsPüsmOH 9,23:? #6;“sei out ‘SäBOTD 440 . ■ *Sl s 

1120 REH TOTER GIOSRSEBSER 

U30 FOR 1=14 TO 0 STEP “0.5:SETCa0R 3,4,USKM ÜJ,!0,lsKEXT IiRESTORE 1190 

1140 READ A,N:IF A>0 THEN SOUND 0,A,i0,8sF0R 1=1 TO H*2:NEXT I 

1150 IF m THEN SOUND G,0,0,0sFÜR S=i TD 5: HEXT tCGÜTO 1140 

Ü6Ö CÖLÖR ASC(CHAS$(7))iPL0T XPDS,YPÜSs NHICH(HIHER,2)=60LD:G9LD=0:G0SU8 650 

1170 NHICmHmR,0}=XPÖSiiWICtUrU!CR,l)=YPGS:f(![jER=RINER-lslF HIHER=0 THEN 1210: REX SÄHE OVER 

UBÖ POSITION 4,0:? StJPUNER;:SETCOLOR 3,4,10sS0TÖ 410 

1190 DATA 100,30,100,20,100,5,100,30,85,40,90,30,100,20,105,10,100,30 

1200 DATA -1,0 

1210 POSITION O,;}:? fitj’saae ovar" 

1220 PDKE 709,PEES(53770) 

1230 IF PEEK(53279K>6 THEN 1220 
1240 RUN 




\m 
^ 4 











h REH m* AHALD5HJHR **** 
90 BOSUß 30000 


100 PRIKT *}" 

105 SETCOLGR 2.3,4 


110 DIH 001591.KGI59),VH59),HU59) 

120 DES sCIRCLE-SW) 

180 H(HT=i60:VCENT=96:LARßE=?ö:SKALL=60 

200 SOSliB 4000 

470 PRINT *>";80Tß 490 

480 PRIKT "Ich verstehe nicht." 

490 TRftP 480 

500 PRINT :PRINI "Bitte die Zeit eineeben:* 

510 PRIKT M5td..Hin.iSekJS “! 

520 IKPUT HR,HIK,SEC 

530 TRAP 65535 

550 IF HJ?>12 THEN HR=HR-12 

560 IF HR<1 GR HR>12 MN PRINT "Stunden m 1 bis 12.":SOTD 490 
570 IF HBKÖ ÖR MfJ>59 TUEN PRINT ‘Himiten von ö bis 59.":ßQT0 490 
580 IF SEC<0 DR SEC)59 THE« PRINT “Sekunden von 0 bis 59.*:GÜTB 490 

590 IF HR=12 THEN HR=0 

6B0 N=IftT(NIN7!2)iFIFTHHR=HIN-12*NsHR=H!i45+S 

690 POKE 204,SEC:P0KE 205,HIN:PßKE 2Ö6.FIFTHRR:P0KE 207,HP 
700 GRAPHICS 24 



710 SETCßLQR 4,7.0 
720 SETCßLOR 2.7,8 
730 SETCDLOR 1,0,0 
740 CHLOR 1 
750 H=i8:J=4 
760 FDR 1=0 Tß fH 
770 V=-CßSlCIRClE*I/N! 

780 H=SIN1CIRCLE*I/K) 

790 HO11)=1KT1LAR6E*H+HCENT) 

800 VÜU>=IKT(UWGE*V*VCENT> 

810 PLOT IHT(KMLßRSEt5)MEKT),INTfV*(LARSE*51+VCENT) 

820 J=J-M:IF 3=5 THEN DRAKTO INT(H*1LAR6E+2)tfäCENT),INTIWLARSE+2I) +VEENT: J=0 



830 HI{I1=INT{91ALL*H+KCENT) 

840 VIU)=1MT <SNAll#VfrVCENT 1 
350 HEXT I 

9Ö0 SEC=PEEK(204);HIH=PEEK(205):HR=PEEK(207) 

910 GOTO 1200 

1000 S£C=PEEK(204): NI N=PEEK (205): fSt=PEEK 1207) 

1010 CGLOft 0 

1100 IF GLDSECOLftSTHIN MN PLOT HKÖLDSED.VIlOLfiSEOüDiySÖTÖ H010LDSEC),VO(QL3SED 
1110 IF ÖLDKIN=KIN THEN 1300 

1120 PLOT HCENT,VCENT:lffiAN7ß HO(BUMINl,VO10LIHlim:0LEKIN=i«N 
1125 I=MN/15:IF I=INTÜ1 TUEN SUARTEfH 

1130 IF ÖUJHROHfi AND HIN=0 THEN CHIKE=HR/5:IF CHIÜE=0 THEN CH1KE=12 
1140 IF OLDilfiOHR THEN PLOT HCENT.VEENTsDRAHTÖ HI (QLDHR5,VI (OLEHR) iß4_0MR=4tft 
1200 COLDR 1 

1210 PLÜT HCEKT,VCENT:BRANTC MfHSTI.VIlHR) 

1220 PLOT HCEKT.VCENTsDRANTO HOIH1N),VO(KIN) 

1300 COLDR 1 

1310 IF SECOHIfi THEN PLOT HliSECMKSECXMMTQ HQ(S£C),VO(SEC) 

1320 ÖLDSEC=SEC:LASTH IfHlIK 

1330 SötJKB 0,0,4,14:3-1+1:SOUND 0,0,0,0 

1410 IF EHIHEM) ISO VßL=ß-VDL:SOUND 1,255,10, VOLsSßli© 2,252,IQ.mMF VOL=0 THEN CHIKE=CHIHE-1 
1420 IF SUARTERX) THEN V0L=8-VßL;SBÜND 1,63,1Ö,VQL:IF V0L=0 THEN ÖUARTER=ßüARTSR-l 


1000 IF PEEK(2Ö4)=SEC THE« 1800 
1810 GOTO 1000 

3000 BftTA A2,00,£I„CM5,CB,C?,3C>9Q,2A 
3010 MTfi 86,CB,E6,CC,A5,CC,C9,3C 
3020 MTfi 9Ö,2O,136,CC,E4,C0,fl5,CD 
3030 MTfi C9,3C,90,02,86,CD,E6,CE 
3040 MTfi fl5,CE,C?,ÖC,9Ö,0C,B6,CE 
3050 DfiTft F6,CF,fl5,CF,C9,3C,90,02 
3060 MTfi 8i,CF,4C,62,E4» = 

4000 DI« HX*(2) 

4005 PRINT "Ich Efitis »eine Ti«er...' 

4010 J=960sR£ST0R£ 3000 

4020 READ HXSÜF HX*=’-" TUEN 4100 

4030 H=flSC(HX*ü,l)M8:lF H>9 TUEN H=H-7 

4040 L=ASC(HXS(2,2))-48äIF 1)9 THE« L=L-7 

4050 P8KE J,H*16+L:,*=J+l:GÖT0 4020 

4100 PÖKE 54286,0:PüXE 548,192:P0KE 549,3!POKE 54286,64 

4200 RETURN 

TOÖOÖ DI« CRIü)iCSS=EHR*(155) 

30010 SRAPHICS 250PEK 41,4,0,'KJ 0 !POKE 752,1 
30020 SETCQLOR 0,B,12:SETCCLOR 3,9,4:SETCBLGR 2,0,0 
30030 PRINT S6;CR$iCR*;CR*;CR6; 

30040 PRIKT U;’ 

30050 PRIKT 46! B UHR' 

30060 PRM 46!' 

30090 CLDSE lÜCLfi :POKE 752,0:S0TD i00 


i-CA 




1 REM C8L0R - REGENDÜBEN 
3 TRAP 4000 

10 DIM »<3)>CUP9(32),CB[lMt(32) 

20 NS=4:MT=i5 
30 G0S5JB 3000 
40 SßSUB 1000 
50 FQSt 1=1 TD iOOOsMEXT I 
100 SH 

110 SETCÖLOR 0,lNT(RfiDlö)*16),2#IMT(8{jDIO)*8) 

120 FQR 1=1 TO 150SNEXT IHNttlÜF N<WT THE« GOTO HO 
130 SETCÖLOR 0,0,{>i 

140 C=!NT(RRD(O)*16lsl=MtRSBfO)*0)*2;SETC!äLßR 2>C>IiSEmOR 4*C>! 

150 FÜR 1=1 TO 150JNEKT I:N=N+S:lf TK«T MN GOTO 140 
160 N=0 

170 C=WT<RNBlö)#161iI=lNTffl»D(O)*B)*2i3ErCÜL0R 2iCflsSETCE8.GR 4,C»l:S£7CÜL[Ja 0»IPfT(Rlffl(0)*16),2'MööH(»*BO 
130 FßR 1=1 Tö 12ÖMX7 IUM+lUF «<NT TUEN GOTO 170 
190 SETCDLßR 2,0,0;8£TCQÜIR 4,0,0 
210 SETCÖLOR 0,12,16 

220 Cims,15»=CHt*(22) 

230 X=läSR(ADR(aiP$!,flS> 

240 CliP3ü5,15)=CHfi*<26> 

250 X=USR[AM(CUPtKKS) 

260 SETCÖLOR 0,3,4 
270 CDöWNi(15,151=CHR$(221 
290 X^tlSH (ASA (dKWn> >NS> 

290 C50HNtU5,15)=CRR$(26) 

300 X=ÜSR(ftÖRiCSDt»> f }iS) 

310 SETCÖLOR 0,7,2 
400 FÜR 1=1 TD lOÖOsNEXT IsSBTQ 40 
1000 GRAPHICS 7+16 

1010 8ETC0LÜR 0,0,0:SETCÖLOR 1,0,14=SETCOLOR 2,0,0;SETCDLÜR 4,0,0 
1020 C0LÖ8 2lFCöLÜR=l 
1030 RESTÖRE 2010 

1100 READ D5:IF ASC(Dt)<64 THEN GOTO USO 

1110 1F I)*='P a THEN READ ROH,CDLUI-&U6ÖSUB 1200SPL0T COLIMLRON:GOTO 1100 
1120 EF DS= S Ö' THEN READ RÖRISIN,CQRIGIN:6ÖTÖ 1100 
1130 IF D$="END" Mfl RETURN 
1140 IF DtO'F" THEN GOTO 1100 

1150 READ RÖR.CöLUHRiGOB 1200:POSITION GOLtHM,RON:P(KE 765,FC0LÖR 
U6Ü XID 16,16,0,0,’Ss'rPLDT CßLUH&RötJsGöTD 1100 
1180 RQH=VAUD*)iREAD CUL.ÜfäN:GDSUE 1200:DRAK7Ö COUMNiRONiBBTO 1100 
1200 RGW=R8N+RÖRISIN; GÖLUfffl=CDLUKN+CÖR IGIN: RETlSiN 
2000 REH *C“ 

2010 DATA 0,10,2 

2020 DATA P, 1,9,1,19,3,23,3,25,9,27,15,27,15,18^,12,18^,10,16,10,12,12,10,29,10,31,12 
2030 DATA P,26,10,26,27,32,27,36,25,36,23,40,19,40,9,F,38,5,F,36,3,F,32,1,F,94 
2040 DATA F,5,3,F,3,S,F,l,?,P,3M2,F,31,16,F,W,18.F,2d,lfl 
2100 REH *0" 

2110 DATA 0,18,32 

2120 DATA P,1,9,1,19,3,23,5,25,9,27,32,27,36,25,38,23,40,19,40,9 
2130 DATA P,10,12,F,10,16,F,12,!B,F,29,18,F.31,16,31,12,29,10,12,10,10,12 
2140 DATA P,4ö,9,F,oS,5,F,36,3,F,32,IiF,9>!,F»5,3»F,3,5,F,l,9 
2200 REH "L’ 

2210 DATA 0,26,62 

2220 DATA P,l,1,1,10,32,10,32,27,40,27,40,1,F,1,1 
2300 REH 'ß" 

2310 DATA 0,34,92 

2320 DATA P, 1,9,1,19,3,23,5,25,9,27,32,27,36,25,38,23,40,19,40,9 
2330 DATA P,10,12,F,10,16,F,12,Iß,F,29,19,F,31,i6,31,12,29,10,12,10,10,12 
2340 DATA P,40,9,F.3B»5,F,36,3,F,32,1.F,9,I,F,$,3,F,3,5»F,1,9 
2400 REH “R* 

2410 DATA 0,42,122 

2420 DATA P,i,1,1,19,3,23,5,25,9,27,15,27,19,25,21,23,22*20,40,27 

2430 DATA 40,10,F,21,10,W,10,4ö,l,P,9,10,F,9,lfi,F, IM8,F,13,18,F,15,16,15,10,9,1Ö,P.4Ü,1,F, 1,1 
25tiO DATA END 


3100 DATA 104 
3110 DATA 104 
3120 DATA 104 
3130 DATA 7! 

3140 DATA 162,57 
3150 DATA 160,0 
3160 DATA 173,0,210 
3170 DATA 101,20 
3100 DATA 141,22,200 
3190 DATA 141,10,212 
3200 DATA 136 
3210 DATA 208,242 
3220 DATA 202 
3230 DATA 208,237 
3240 DATA 104 
3250 DATA 56 
3260 DATA 233,1 
3270 DATA 209,228 
3200 DATA 96 



0 REH 60LF ** 

1 GRAPHICS 2:POSITION 5,J.:? t6; n 5Qlf-£Piel":ü=0:EU:B=5500:SETCaU38 2.0*0!? ifiOSUB 20100 

2 V^tMötöIf! 9mZi,B2$(Z),e3&(Z),a4i(Zi,B5!KZ),SCHL(V),SCHlJStVMH(Vi,Y8iV),F£LB(V),Fa(V):Z-2 

3 POSITION E,5:? S6;“SPIELER ?(1-4> S : IKPIJT SPUF SP(fl OR 5P>4 THEN SP‘E 

4 POSITION 3,5!? 7 "iIHPüT BUUF SP>E TH» INPUT G2IUF SP>I MN INPUT 83SÜF SP>3 THEK INPUT 044 

5 POSITION E.5:? §6; ä SRßEKSE MANN) ?":? tt!“ ! GROSS 2 KLEIN'UNfUT 8UF Ö<E OR Ö>Z THEN 8*E 

h POSITION E,5i? SA;“BEGRENZUNG ? ”:? SS!“ 0 KEINE 1 PUNKTE“!? *61“ 1 LIMlEH r ’sIMPUT BEUF BE<0 OR BE>2 THEN BE=Ö 

7 BEfi*BE*!0+3200:? *A;“}":POSITION 2,5:? «}M8 FELDES' 

0 POSITION E,5:? SA!“FELDER 7Ü BIS ?)*:? 46i n lEV,-18)“:M0T SPIEL:POSITION 4,2i? “BIS “St WIFI FE 
9 IF SPIED18 OS SPIEUä OR FEISPIEL OR FE>!3 THEN S 


iö ? sä; 11 ) 0 

11. POSITION E.5:? tAUBESERTUNG":? 86!* 0 NORM. "!? 86!" i STRENG ’UNPUT STUF 5T<0 QR ST>E THEN ST=Ö 


12 R ■ 1 ■ R2-SE 0 • S3"ftE3 s f}4‘RE $t83^*01S 

50 KOR M TO V:SCHLAG(I)-G:SCHL11) =0!FELD(I) =0sNEXT ÜPQKE A23,E:PDKE 707,138:S=ß:PÖXE 764,255 

100 GRAPHICS 7iBI=PEEK(561!*256+PEEK(5tö}*3!PCKE BI,70:POKE BH3,ll 

110 SI-BI+GS:PÖKE BI-S,?0:PQKE BI.ÜPOKE BHE.ÜPOKE BI+Z,A:GD5U8 1006:? SSSifiQTß 400 

200 X-14ö:Y=17:GDSiJB 540Ö:X=BO:Y=60:L=29:LL=V:GQSUB 5300 

210 X-25: V=40: GR=7s S0SUB BsX=90:Y=7öiSR=B: 69503 B: X=105: V=I8: BR=6: GOSUB B:X=45:YU4:BR=A:S0SUB B: RETURN 

220 XU3O:Y---12:0!OB 5400:X= 1ÖT)iY= 1 ?:L-10:LL= Z:SöSUB 5300 

225 CQLOR ZiX*t>SY=E:fOR I=E TD -40: PLOT X,EiDftMTTO 0, ¥: X=X+-Z: Y-Y+E: NEXT I 

230 X=159:Y-7?:FßR I=E TO 30:PLOT X,7?:MANT0 159,V:K-X-Z:Y=Y-E!«EXT I 

235 Xs78:Y*35sSR=8:GB5UB B: K=130: Y=30: BR=3: BDSU8 Bs' n r =40:Y=3ö:GR=Ei GOSUB B: RETURN 

240 X-125:Y=65:ÖOS9B 340ö:X=6S:Y a 4ö:CQL8R l:FOR I=E TO 30:PLOT X,Y:flRAHTO K,79:K=X-tE:KEXT I 

250 X-¥:Y=E:SS=V:FOR I=t TD 7:GÖSÜB B:X=XUMXT l:X=8S:FQR I-E TO 9:80SUß ß:X=X+8MXT I 

255 X=i?:Y=15:6ft=6:6QSl!B BiX=4ü:Y=Aö:GR=2:S0SiJfi B:X=12ü:Y=35:6R=B:SßSUB 8: RETURN 

260 X-lI5:Y*65:ßOSUB 5400iX=lW:Y=40:L=10!LL*B*BOSUB 5300 

270 X=62:Y=10:SR=ß:G[!SUB B:X=löÄtY*Z:HMi«ISl» B:X=90:Y=45:GR=E:80SLU3 Bs X=55:Y=50;GOSUB B 

275 CHLOR Z:X r ö:V=EäFDR M TQ 2 ö:PLDT X,E:ßRftöTI) 0 »r:X=X*ZtV»Y+EsWESET I 

276 X=159:Y=E:FGR I=E TO 15:PLOT X,E> KANTS 159,Y!X«X-ZiY=Y*E:NEKT I 

277 X*50!Y*5B:F0R I~E TO 30:PLOT X,79:DRflMTD 70,Y:DfUWO 85,YsßRß!iTQ X*Aö>79:X*X*EiY=Y+G.8äNEXT I:RETURN 
260 X=130:Y=!5i6DSUB 54O0:X=U0iY=53!L*34:L=8:BQSU8 5300 

285 X=90:¥^50:ßR=7:SÖSUB 8tX*H:Y=10;GR=6iBDSUi ß:X=25:Y=25:GR=3:60SUB B 

2¥0 X=ao:Y=E:CQLI3R ZsFDR I=E TO 40aPLÖT X,0:«R«TO 110,Y:BRAST8 X+8,E:X=X<-E:Y=Y+E:NEXT I 

295 X=45!Y=5B:F0R I'E TO 21: PLOT K, 7ö: DRASITO 57, V: DRAMTQ 79*78=X«X+Es Y*Y+£s HEKT I: RETURN 

300 X~14ö:Y=A7:SöSU5 5400iX=I29:Y=45:L-I2:iL=12:GBSUB 5300:M=35*Y=30;83=3:30SUB B:X=145:Y=15:GR=V:6GSUB B 

310 CDL3R I:FQR X-8 TD 35:PLDT X,E:D«A8TÖ 0,30:HEXT X:FGR X=37 Tß 90:PLOT X,79:DRA»TQ 55,30:HEXT X 

315 FflR X-61 TG 120:PLOT X,79:3)SAÖTÖ 95,35:HEXT X:F0R X-45 TQ 100:PLOT X.EsßRftSTO 77,40:NEXT X:RETURN 

320 X=15:Y*15:60KIB 54Ö0:X=B5iY=5:L-2ösLL=12:SI)SÜB 5300sX=115?12:L=S:GOSUB 5300 


325 X=35:Y=7:GR=Si8ÖSUa B:X-12?:Y=-58:89SUB S sXNLOs Y=55:GR=5:SOSUB 2 
330 CHLOR Z:FOR Y^35 TD 45:PLÜT C,Y:DRM4T0 I20.YMXT Y:RETURN 



390 X=89iY=!2:S0SUD 5400:X=i20:Y=4ö:Ls3:LL ffl 25:GOSUB 53öO:X-135:Y-*5:öa=7s6OSU0 B:X=75:Y=60:6R=A:GOSUB B 

345 X"55:SR=V:FG8 Y=E TD 29 STEP 7:GOSUB 5500:HEXT Y:Y=29:FDR X=55 Tß 90 STEP 7:G(JSUB 5500:HEXT X 

350 CGLOR Z:FOR X=40 TO 65:PL07 X,7?:DRAHTG X,50:RFXT XsK=20:Y-25:SR-AESOS^JS BsX= 100:Y»12:6R=IsSDSUB BsRETURW 


360 X=8G: V-60: BOSUB 5^00: X-80: Y=6: L=34: LL=£: GQSÜB 5300:X= 17:Y=30:GR=3:6ÜSUB Bi X=45: Y=22 5 8R=E: SÜSÜB B 
365 POS I=£ TO V:X=INT (RKBi 01*50+100) :Y=IHT(IINS(Ö) *30+39) sGOSUB BsNEXT I 
370 X=38:Y=59:FDR BR=8 70 E STEP -E:GOSUB 5500:X=X+12:Y=Y-6R:«EXT 6R:X=45sY=70ifit}SUB B: RETURN 
300 PME 87,7:? #6;")“:SS=X+Z/S:X=6Ö:Y=60*ß+20:BOSUB IÖ50:60SUB 1000:6070 WO 
390 SS^M+K/8«X=6ö:Y=6ö*fl+20: SGSUB 1050:6070 450 
WO PQKE 37,7:P0KE 712,i98:P0KE 708,232:P0KE 7Ö9,!78:P0KE 710,204 

410 XK(E)=80:XH(71=6i:XH(3]=79iXH(Vl=Bö: , 7mEl--95*a:Yfit7)=96*QiYH(3)=94*a:WfVI=9W:YlN95*Ö:X)l=BO 
415 IF SPIEL=FE+1 THEJ1 9000 ‘ 

420 BOSUB BES: 11=8000:OH SPIEL GDSUB 200,220,240,260,280,300,320,340,360,11,11,11,11,11,11,11,11,11,11 
430 X«MiY»60*fl+2O!SS=X+Z/fiiG0SUB I05Ö:60SÜB 1200:LL=G 

450 PßKE 87,E:P=E:F0R I=E 70 SPsPÜSITIOK P,D:? MiSCHlMtDiMWiNEXT ^POSITION 13,fl:? M;SPI& 

500 #lX=MS(XH-{Xt5H:DIY«ABB(m-(V*22))i(MTICKlS>iPDKE 77,Q:PP=50Ö:W=V 
505 IF EN=£ TUEN £N=ß:SPIEL=SPIEL+E:BOSl!B 940:6010 100 
510 IF R=7 THEN SS=X+7-ß:6aSU8 2000:BOTQ 599 
520 IF R=ll THDt SS=X-7+ß:SGSUB 2100:GOTO 599 
530 IF IM4 THE» SOS® 2200: BOTE) 599 
540 IF R=13 THEN SGSliÖ 2300:GOTO S99 
550 IF ST(UB(S)=D THEN 560 
555 GOTO 599 

560 IF STRIß (S1 =0 TUE« SOUÜB E,4ö,i2,V:XS=X+5:YS=Y+22:6BTfl 560 

562 DIX=(Xü-(XSn:DI¥=IYH-(YSI):?OXE 77, ü:PP=569:W=E: SOUND E,D,Ö,G:IF BIY<Ö THEH DIX=IXIHX+5)) 

563 IF ftBSIBIXKO THEN 568 

564 IF Ü!X>Ö THEN AU=Z;ßflTQ 566 

565 AU=0 

566 IF DIV>3 THEH AU=AlJ+E:ßüTO 568 

567 AU=AU+Z 

568 DN All fflSUB 2400,2420,2440,2460 
56? R=STICK!S):IF R=15 THEH PP=562 
570 IF R=7 THEN 3S=SS+E:(i05U!t 2080:XS=XS+£:GOTO 59? 

575 IF R=ll THEN S5=SS-E:BOSUB 2100:XS=XS-E:6ÖT0 599 
577 IF M4 THEH SOBIJB 2200:YS=YS-E=GOTO 599 
5Bö IF R=I3 THEN SOS® 23ÖÖ:Y5=Y5+E:GGYÖ 599 

505 REH POS ZEICHNE,RE!-4,UI-4 NEU DEFINIEREN IAIO BEI 500-550)BEI ADRESSE 20000 

590 SÖUNÖ E,f!,Ü,[l: SOUND 2,0,0,0 

591 IF STRIßIS;=□ OR SCH=E THEH 600 

592 80TD PP 

599 SCH=8:täE=i};GUTß PP 

600 IF HD29+S THEN HE=30*ü:6Q5tIS 7öö:80T0 500 
605 IF WE=3Ö*8 THE« 600 
610 NE=NE+£ 

6.20 SOUND Z,99,10,BiPP=5W 
630 S£H=s£: IF 8E=ß THEH GDSUB 1300 

VH) IF WE=16 THEN SOSÜB 1400s I=PH+7£B*O+Y+14:P0K£ 3,0:PÖKE I+E.Ö 
630 IF 5TRIG(S)=E THEN GOSUB 700 

660 FDR I=E TO 2Q:NEXT ÜSOUKD Z,Q,Q,G:FOF! I=E TD 20:HEXT IsSOUND E,0,0,0:IF NE416 THEN SOTÖ 
670 ÖÖTO 6Ü0 

700 IF HE >8 THE!? ON AU SO SU 2 1430,1410,1450,1470 

705 SOUND M.S,Z:DN AU GDSU3 1330,1310,I350,i370:PP=5ÖO!l=PH+76Bfc£t+Y+8:POK£ I,ß:PQK£ 1+1,0 

707 IF AM OR fiü=4 THEH PQKE I-E,16:PÖK£ 3-7,16:0370 7S0 

708 PCKE E-E,8iPßKE 1-2,3 
710 IF AU=E OR AU=V THEH SBSUB 2550:GOTO 730 
720 GÜ5U8 2500 

730 FÖR I=E TO 5:SGUND E,20,V, 14:HEXT I:SOUND £,ß,ß,ü:FQR 1=14 TD 0 STEP -O.bsSQiWH) Z,2ÖÖ,V,l:«XT I 
750 DIX=XH-XS:DIY=YH-YS 

765 IF ABSISIX)>B*8 OR ftBS(DIY)>5*fi TUEN ? "ZU HEIT NEE":ALM):NE=0:3CH=Q:SßSüB 899iRETURN 
770 FDR NEI=E TO BE-E 

780 I=P?!+384*Ü+VM:PÖKE 1,0»PQKE l+E,8:XN=XR+DIX:YM=YH+i)IY:SQU»D E,HEI,V,6:I=UDIY:P0KE LMiPQKE I+E.64 

781 CGL=PEEK (53251J: IF CDLOÜ THEN IF CÜLOV THEN GOTO 6000 

782 IF CDL=V AND LOCH=£ THEN IF 0!H>117 AND XH<125) THEN IF (YH70-2O>37 Wb YH/ß-2Ü<44) THEN 802 



783 IF XK4B THEM ? "AUS MFÜR I=E Tß 25ÖMCXT UXH=50iSDTQ 793 

784 IF XK>206 TtiEN 7 *}":? *fiUS "ssFBR 1=E TB 250:WEXT 1:XH=2Ö5:S0T0 793 

785 IF YH<20 THEIJ ? *}*i? ’MIS "üFDR I=E Tß 250:HEXT I:YHH=22+Qi60TQ 791 
787 IF 'mm THÖf ? “ftUS MFÖR M TO 250:HEXT I:YRM=97^Ö:60T0 791 

790 PÖKE 53278,ß:POKE 53255,XHsNEXT KI:8018 802 

791 I«m+3B4*B*¥HiRDKE LD-'POKE H€,G:YH=YfiN 

792 M>fK384*D*YH:PflKE 1,64:POKE I+E.«iP0KE 53255,XftsfiOTO 900 

793 PDXE 53255,XNfSÖTO 800 

799 ME=ö:Aif=0:SCH=QslF ST=0 THEN RETURN 

B0Ö IF S7=i TUEN ? ■!':? 3 (STRAFPUNKT)*:FÖR 1=1 Tß 150:HEXT I:SCHLAG(S+£)=SCHLa6(S+E)tE 
802 PQKE 5327G»EUFÜR K TO BOMKT I:C0L=PEEK<53251): IF CDIOÖ TUEN 80SUB 6100 
B05 NE=ß:faj=ö:SCH=ß:3fi=Q:FP=500:SOUXÖ E,Q,ß,Q:SBli!ffl 2,0,0,0 
310 SCHAB (StEJ=SCHLftSfB+E)+E 

B20 POSITION S*V+E,ß:? «61SCHLÄB<S+E)iX«TS+E)=XHsYRTS+E> 

B3Ö ? ‘>“:S=S+E:IF S=SP THEH S=G 

835 A=0:F0R I=E Ti) SP:ft=ft+FELDÜ>:NSXT MF ft=SP THE« ti^BOSUB 7000:PQK£ 53278,0 
832 IF FEUHS+E)=£ THEN GOTO 830 

834 IF L3=E THEH L0=D:üQTß 837 

835 PÖKE B7,7:CfILÜ8 3:PLÖT XH-43-B,YH/6-20 
837 I=PN+384*ß+YHsP0KE I,Q:P0KE I+E,Ö 
840 S1=S+£:QN S1 6QT0 850,880,870,880 
850 PÖKE 707> 138!KH=XMiE) iYH=YS1 (E> sB5i=ßlS:GOTO 885 

800 PÖKE 7ö7,58:XN=XHiI):YN=YR!2I:ö5$=S2lsßöTÖ 805 
870 PÖKE 707,170: XH=i{I$ i 3): Yli=YH <3): 359=93$: GOTO 885 
800 POKE 707,90: Xtl=XS1 {V): YlfcYfi i V): 351=34$ 

985 IF LL=E THEH 698 

890 PÖKE 53255,>ffl:l=PH+3B4*8+Yfi:P0KE I.MiPDKE I+E,64 
895 POKE 87,7sC0L0R 3:PLOT XIMM,YH/lh20:PIJKE 87,E 
898 POKE 53279,0:? •}■:? Q5$ 

099 IF DIX<fl MN BÜSUS 1150:RETURN 
900 6ÖSUB iOSOiflEMN 
940 IF 25+L+120O23*XS THEN 1950 

950 ? *}“:? ‘weiter ?":FDR 1=0 T8 150:FßR L=ß Tß SP-EUF STRIS1L)=Q THEH 9W 
955 NEXT L:HEXT IsGQSUB 9100 

960 L=?EEK(764MF L=33 MN SPia=SPIEL-E:P3K£ 784,255 3 RETURN 
970 POKE 53277,0sPÖKE 764,235:RETÜRH 
10M PK=PEEXlitt)-32:POKE 54279,PH:PH=PN*256 
1030 FßR I=PH>254*0 TO PHH024*D STEP i28:ö=USRfVP,CL,I,n)sNEXT I 
1020 POKE 53277,3?PÖKE 559,30+16*5! 

1030 POKE 704,2301POKE 705,0:PÖKE 700,76 
1040 IF ß=Z THEN RETURN 

1045 Föfi 1=53256 TB 53259:POKE I,E:NEXT I:RETURN 
1050 I=PH+896*3+Y:MISS1VP,I>E 1,1,1) 

1069 I=PK+7ß8*EI+Z+Y;H=U5R(VP,HE2,1,11 

1070 I=PN+640*9+Z+Y;|)=ijSfl(VP,RE3,M> 

1060 I=PPS+512*6+11+YiD=USPW,R£4,1,1} 

1990 SS*X+Z/BiPOKE 53251,X:POKE 53256,XäPOKE 53249,X:POKE 53248,SS 
1099 ra:RETURN 

1150 I=PTWW4*0+Y: D=ÜSR (W,LI 1,1,1) 

1160 I=PH+768*Q+I+Y:ö=USR(VP,U2,U) 

1170 I=PHt*40*Q+ZtY:D=USR(VP,LI3,I>Il 
1180 I=M1t512*!l+ntYiIWJBR(VP,LI4,MJ 

1190 SS=X-Z/fiiPOKE 53251,XtPDKE 53250,X:POKE 53249,X:PÖKE 53248,SS 

1199 N=ß:RETURN 

1200 I=PM+384#0+YH;PÜKE I,64:P0KE I+E,64sP0KE 53255,XH 
1205 IF S=E THEN POKE 53260,64 
1210 RETURN 





1300 SOUND Z,O.Q,D:M AU SÖTO 1330,1310,1350,1370 
131Ö I=PH+8?MfcY+S: D=USR1VP,HE5, M) 

1315 HPm-76B*0+Y4-lö:D=USR(YP,HA5,1,1) 

1320 SS=X+V/fi:POK£ 53243,5S: HPH*512*3+Y:MSR IVP, SL5, U) :RETURN 
1330 I=PH+B9M*Y+Bs D=USS tVP, HE6,1,1) 

1335 WH+7AB*fl+Y+tC:B=USRlW,Htt,M) 

1340 SS=X*fi/aiPOKE 53240:.3S:I=PH-s5i2*Ö+Y:D=USS 1 VP= SLi,I,I>iRETURN 
1350 I=PH+B96*ft*Y+fl: D=USR tVP» HE7,1,1! 

1355 I=PH+7AB*fl+Y+l <C D=USm W, HA7,1,1) 

1360 SS=)!“ß/0:PÖKE 5324fi,SS:l=-fS+5I2*Q+Y:i)=lfSß(VP,SL7,M)ifiETl»iN 
1370 I=PR*fl9A*B+Yt«!iMlSRIVP,ieH,I,I) 

1375 HPfH76G=*ß+Y<-105D=USRIW,HAS,Ml 

1330 SS=X-6/öTpaXE 33243,35: !"PH+5i2*0+Y:D~U5R!VP,SL8,1,1) sftETURti 
S.400 SOUND 2,0,0,0:03 Al) 6070 1430,1410,1450,1470 
1410 I=PH+e9A*ü+Y*BiD=USRtVP,HEl,M) 

1415 I=PHt7ii8*a+Y+6:B=U5fHW,HAl,I,I) 

1420 S5=X+*/B:P0KE 53243,SSU=PtW12*B+YiD=USR(VP,SU,MliRETUW 
1430 M>H+«9A*8+YtfiiD=USR(W>,HE2,M) 

1435 I=PN+7AB*fl+Y+A:B=l)SHIVP,IIA2,I.I) 

1440 SS=»V/8:PQKE 5324ß,SS:I=PH+512*fi+V:ß=USR(VP,SL2,U)i3ETUßM 
1450 I=PH+896*8+Y+8i&=USRfVP,HE3,I,I) 

1455 I=PHf768*B*Y*6iD»USRiVP,HA3,I,n 

1460 SS=X-V/B:P1*E 53243,SS:l=PH+5i2^Y:B=USP(VP ) SL3,M)iRETURN 
1470 I=PH+mWY+«:lH)9R(VP,HE4,M) 

1475 I=PK+74a*fl+Y+AiD=USR(VP,HM,I,I) 

14B0 SS=X-6/0:PQKE 5324B,SS:I=PtH-512*fi+Y:Ö^SR(VP,a4,I,I):RETÜRN • 

1950 L=INT(¥*Z*125-5Ü)sG[lT0 L 

2000 IF LOCKi'E TO POKE 87,7:LS=71: 12=40: CG 1 --fl: C02=0: BQSUB 5000: PÖKE 87,2:LßCM=ö 

2001 X=X+WÜF E-D TUEN 2030 

2005 IF BIX>25 DR DIV>12*0 TUEN IF H=Q THEN SOHUB 1050 
2007 SOUND E,lA0,V,mTUWH0)*l5I 

2010 I=PI|tM0*B+2ü+Y»Pffl(E HABiPKE HE,OS:POKE 1+2.102cPtX£ 1+3,102 

2020 1=53231 SPUKE MüPUKE I-E,XiP0KE I-Z.X'-POKE I-3,SS:M:IF X>240 IREN X=240sS5=SS-V 

2025 SQUHD E,ü, 0,0: RETURN 

2030 I=PH+A4ö*fl+20+Y:PQKE I.WiPDKE HE,40:POKE HZ,6Ö:RßKE 1+3,tf 

2040 I=5323l:P0ltE I.XSPOKE HE,X:POKE l-Z,X:PDXE I-3,SB*S€:IF X>240 THEH X=2WsSS=SS-V 

2045 RETURN 

2100 X=X-UV:IF fi=0 THEN 2130 

2105 IF QIX>25 OR DIY>I2*B THEft! IF 8*E THEN BQSUB 1150 

2107 SOUND E,14ö,V,I8T(RNDIÖ)*15) 

2110 I=RHMO«+20+YiP!B£E I,34sP0WE !*E,34!F0XE HZ,192:PGKE 1+3,102 

2120 I*53251sHHCE I.XiPRKE I-E,X:PGKE I-Z.XsPOffi H3,SS:G=D:IF XC2Ö THEN X=2&sSS*SS*V 

2125 SOUND E,8,D,0iRETURK 

2130 I 3 PN+M0* t fi+20+Y:PS;E 1,20:PGKE HE,20:POKE HZ,6ö:P0XE H3,M 

2140 1=53251 sPQKE I.XiPflKE HE,X:POKE I-Z.XiPOKE H3,SS:B=E:IF X<20 THEN X=20s5S=SS+V 

2145 RETURN 

2200 IF V<-S*ß THEN 2235 

2202 IF N=Ö THEH fü 1=L 11 s R2=L 12 i R3=LI3: R4=LI 4 s SS=X-Z/ß: GOTO 2205 

2203 R!=RE1: R2=RE2: R3--RF.3: RHRE4: SS=X+Z/3 
2205 I=PH+OTt*Q+YsD=ÜSi?(VP,RI,I,HIV) 

2210 H.PN+7t8*9+Z+Y:a=U3R(VP,S2,M-Wl ■ - -- 

2220 HPK+A^B+Z+YsSsliSRfVPiRS.M-VV) 

2230 I=PH+512*B+U+Y:B=USR(VP,R4,I,I-W)sM-W 
2235 PÖKE 5324S,SSs]F K=Q TUEN GOTO 2270 
2240 IF S=D THEN 2260 
2245 ^QsSOUNB E,l&9,IMOTMUiB(B>*15) 

2250 I=PR+M0*fi+2IWf SPUKE I,68sPDK£ I+E,6B:PUKE I+Z»i«iP«E H3,102:SOUND E,0,0,ßsRETURN 
2260 I=PH+MÜ*B+20+Y:P0KE MfcPBKE HE,4O:P0XE I+Z,AO:POKE I+3,»*B*E*RETURN 



2270 IF 8=0 THE« 2290 
2275 SOUND E,U0.V,UrT(RWMQl*13) 

2280 I=PH*64ö*ß+2&+Y:P0KE I,34iPUKE UE,34:P0KE I+-Z, 102:P0KE U3,102:6=0sSCRiHB E,Ü,Q,0:RETURll 
2290 I=PHt64Ü*0+2<M:pQKE I,20iPQKE I+E,2O5P0KE kMO:PQKE 1*3,60!S=E:RETURN 
2300 IF Y>1ÖÖ*8 THE« 2235 

2302 IF Mi THE« Rl*U'l!RZ=LI2!H3*LI3JM=U4iS3“X-Z/Bi80T0 2303 

2303 Rl-REl:R2=RE2:R3=RE3:R4=RE4:S5=X+I/fl 
2305 I=PHf8?6*S*Y:D=USR(VP,R1,1,1+W) 

2310 I=P»|t7AB*M*YiD=USR(VP,R2»M+VI/) 

2320 I=PH+MO*Ö+Z*Y) D=USR(W. R3, M+W) 

2330 I=PH+512*0+1M: MSR I VP > R4,1, HW t : Y=Y+ W: GOTO 2235 
2400 XS=!ifl3/a:3GSU0 2550: RETURN 
2420 XS=X-6/B:GGSUB 25Ö0:RETUftH 
2440 XS=X-6/B:S0SUB 2500:RETURN 
2460 XS=X+l&/fl:6DSUB 2550:RETURN 
2500 IF N=E THE« 60SUB 1150 
2510 I=PH*B9i*Q+Yf8iBmSfl(VP. RE5,Mt 
2520 I=PHf768*G+Ytl2:MtSRIVP,K£6,I,I) 

2530 I-PIH-512*0+ Y*llsMiSR (VP,RE7, M):SS^X-OH^S:PöKE 53243,55 
2540 RETURN 

2550 IF N=D TUEN 805UB 1050 
2560 I=P!W396*B+Y*8:D=USR(VP,LI5,1,1) 

2570 I=?H+76S*8+Y+12: S-USR(VP>LI6. M t \ 

2580 I=PtH-512*G-tVfll:lt=USR{YP,LI7,I ) I!:SS=X+6-I*ö:P0KE 53248,53 
25S-0 RETURN 

5000 LL=L2+E:C0LGR 3:F8R I=E TO 2:P10T LI,L2:DRflHTD Ll,LL:Ll=LHl:L2*L2-E:tL=LL+E:NEXT 1 
5010 FGR HE TQ 3;PLÖT Ll,L2:HRäNT0 L1,LUL1=LHE:NEXT I 
5020 FOR I=E TG 2:PLQT Ll,L2+E:DflfWTÖ LLIL-E: LHLHE: L2=L2+E:U.*LL-E:REIT I 
5030 PGKE 709 j 50:CDLDS C02:PLOT Ll-V,LL-4:DRAUTO Ll-V.LL-U 

504Ö PÖKE 70Ö, 12SCQLDR CflUFDR I=E TD 3:PLOT LH3,LL"16:DRfiNT0 Ll,LL-13:LL=LL*EiNEXT I 
5090 RETURN 
5200 RETURN 

5210 CÖLOR 2-PLOT 0,E:PL0T 159,im.0T 159,78:PLOT 0,7ß:RETURN 
5220 Cütöfi 2:HUT 0,E:BRANTD 159,E:0RfiNTÖ 159,78:DRAWTQ 0,78:DRAHTD Q,E:RETURN 
5300 TY=Y4iiVl=Y:F0R HE TO L:YY=YY^INT(RNßlP]*3!-E:Yl=Yl-INHRND(0)*3)+E 
5304 IF YKE QR Yl>79 THE« YHY 
5303 IF YY(E DR YY>79 THEN YY=Y+5 
5310 CÖLOfi E:PLOT X,Y1:DRANT0 X,YY:X=X+E 
5320 COLQR 3:PLDT X.YliDRMTD X,YY:X=X+E:NEXT URETURN 

5400 YY*Y+4iCOLQR 3:FÖR HE TQ 5sPLOT X,V^DRAMTO X,YY:X=X:-E:Y*Y~EsYY=YY+£:t£XT I 
5410 FOR 1=1 TD 5:PLÖT X,Y:0RflfiTO X,YY;K=V+E:NEXT I 
5420 FOR HE TO 5:PL0T 1U¥+E:ÖSAWTO X,YY-E:X=K€:Y=Y+E:YY=YY-EäNEXT I 
5430 PLOT X-2,YY+2:öRASi7G X-V.YY4V:DRMIT0 X-12,YY+V:liiimö X-14.YY+2 
5435 PLOT X-14,Y-2:D8Aü79 X-I2,Y~V:DRA»TÜ X^.Y-VHHHÄTQ X-2.Y-2 
5440 LX=!H5:UHY+2:CGLOR 2:PLÖT LX,LY:RETURN 
5500 REH BAUN i 

5510 0« GR 8ÖGUB 5520,5530,5540,5550,5560,5570,5580,5590 f 

5520 6QSUB 5620:RETURfJ 

5530 COLQR Es PLOT X*3.YtDRANT0 X*3,Y*9»ÜDSUB 5A201RENHI 
5540 GÖSUB 5610:RETURN 

5550 COLQR E:PLQT X+3,YsDKtAKTß X+3,YH2:ßGSU0 5610:RETlXt« 

5560 SÖ5U3 5610:COLÜR E:PLÖT X+3.Y:DRWT0 X*3,Y*Hl RETURN 
5570 CÖLÖR Ei PLOT X*S,Y:ßRASITÖ X*3»YtS5sSOSUB 5600:RETURN 
5580 COLQR EiPLQT X+3.Y:WUWTQ X+3.Y+2Q:OOSÜB 5600:RETURN 
5590 50SUB 5600:COLOR £:PLQT X+3,Y:DRßMIP X+3.Y+2Q:RETURN 
5600 COLQR 2:YY=Y+14i8QSUB 5700IPLQT X-3,Y+12:DRffijTÖ X-E,YY:PLOT X+9,Y+12:DRÄNT0 X+7,YY:PLÖT X+3.Y+10 
5610 YY=Y+lU6ßSlffl 570ö:PU)T X-E,YY:PLOT X+7,YY:PL0T X-2?YY-E:PLOT X*8,YY~E:PL0T X+3.Y+7 
5620 YY=Y^8:SDSII8 57Ö0:PLÜT X-E,YY:PLCT X+7,YYsPLOT X+3,Y<V 
5630 YY=Yf5iRGSU8 57Ö0 





5H® CHLOR 2:PLOT X+3,Y:PL0T X+2,Y+£:DMBT0 X+9,Y4£ 

600Ö IF^COL^THEW"7 g 2 ! V¥-3^URfi»TQ X+6,YY:PLQT X+E,YY:DRAtlT8 J(+3>¥V-2iflRABT0 X-ä-S,VViRETURN 

Ö010 I=PH+384*e+Y!’lspaK£ 1,0:POKE I+£,Q:IF PEEK(53251)=5 TEEN IF 36=0 THEN GGSUli 6080 
6011 FQR I=E TO 8?SOL f MD 3»96,12,10i60S8B 2500JSOBUB 2550:80508 1050:ßDStffl USOJSQiWD 3.0,0,0 
6013 HEXT l:»£=ö:ftU=Ö:SCH=ö ...... . 

6015 IF L=V TUEN 302 
6020 XR=Xh-ÖIX r VH=YM-0IV 
6025 PP=50G 


6030 PGKt 5 j 278,O!P0KE 5325»,XMiI-PH+384*ff+YH:POKE 1,44:PAKE 1+1,64 
6032 FÜR I=E TO 201NF.XT UL*PEB£(53251):IF L-G THEK BOO 
6035 GOTO 6010 


6040 XH=XR-D IX: YM=YiH/I Y: RETURN 

60S0 ? "sand 1 STRAF FUNKT": FOR I=£ TQ 250: NEX! I: SCHLAG (S+El =ECFä.A6 (S+E) +Es SA=E: RETUR»! 

6100 IF L0CH=£ THEM 6200 
6102 IF CDL=6 TIER 6150 
6105 IF CQLOV THE» 6010 

6110 POKE 53255, XN+iE: FOR I=E TD 20* «EXT HC0L*PEEK(53251)tIF COL=V OR C0L=6 THE» 6130 
6120 SQTD 6010 

6130 FELD(3+E}=£:IF CGL=6 THEN 6160 

6140 SOUND 3,33, 10,3: FÖR I=€ TO 5Ö:NEXT IsSDUND 3,66,10,6:FDR I=E TO 5ö:NEXT IsSOHB 3,Q,Ö,Q:RETURN 
6150 FELD(S+E)"E 

6160 FÜR 1=10 TD 110:SOUND 3,1,10,1/lOHtEXT I:SOUND 3,C,Q,ßsFELiS+E>-EsRETURN 

6200 SOUND E,ö,D,G:SOUND 0,0>0,0sIF CöLOV THEN RETURN 

6210 POKE 53255,0:SüSUB 613ö:fiOSUB 6150:RETURN 

7000 POKE 53270,0:IF L0CH=1 THEN 7100 

7010 ? Ms*>»ipQKE 712,200:POKE 710,0 

7020 P=E:FOR I=E Tö SP:POSITION P,ß;? *6SSCHLABÜ):P=P+V;tEXT ÜPDSITIO« 18,0:? «4;5P1R 

7030 PiSKE 67,7:L1=71:12=40:COi=£: CG2=Z: BOSUB 50ÖÖ 

7040 KOS !=£ TO SP:FELS(X)«FELII):HEXT IsLDCH=€sLO=EsLOCHt-E 

7045 SÖSliB BEO 

7Ö50 FÜR i=E TO SP:XH! 11 = ((fXH(I) -45-8) -DO *10,6)+45+8+74:YK(I)s(((YH(I)/B-2ö)-LYl*4.2)*0+20*8+43*0 

7052 IF XrtlI)>205 THE» XK(I)=205 

7054 IF XMÜK50 TUEN XflübSO 

7056 IF Yf!IIK22*ß THEN YH ID =22*8 

7(63 iF YM(1)>97+0 THEN YPH 1)=97^3 

7060 COLOfi 3:PLOT XB(I!-45~fl,YNai/B-20:HEXT 1:POKE B7,E:RETURN 
7100 LöCH=Q:Oi=E:FDR I=E Tö SP:FELS11)=Q:FEL(I)=0:»EXT I:RETURN 
8000 IF SPIELES THE» 9000 

6020 X=INTiRNDfÖ>*36);FC!R ¥=55 TO 57iC0L0R 2:PL0T Ü,Y:DRAKTD 45>Y:CÖLB8 4:PLßT X.YOBRASTÖ X+3.YSHEXT Y 
80^5 tOLDS 2:F0R X=43 TO 45:PÜJT X,56:BRfi»T0 X,7?:«EXT X 
0030 X=INT(RNB(ß).M20):Y=INI(RI®(2)*50):LsIiJT(RHb(ßJ*20}:LL=4iKJSÜB 530Ö 
8040 X=INTfRNL'(E>*lC4+4ö>:Y=INT(RNB[VI#55+8):S0SUB 5400 

6(60 FQfi 1=0 TG SPIEL*2-6:X=IJi7{8ND(E)*135+V) :Y=INT(RND(Y)*63+2):GR=IHT!flHD(ü)*9)iS8SliB 5500:«EXT I:RETURN 
7000 P8KE 53277,0:GRAPHICS 10:? #6!“ RANGLISTE“:GöSü8 7500 
9003 IF SP=£ THEN 9030 
9010 FOR !=SP TO 2 STEP -E 

9020 POSITION E,2*1+2:SßSUB 9510:? #6,1;". "fSIsNEXT I 

9030 BÖSUS 9510:POSITION 4,3:? #6:85*,SI 

9040 CßLDR 10: PLOT E,E:DRAHT0 17, t: DRAHT!) i7,5:SRANTD E,5:DRAHTß E,E 
9050 GOTO 9050 

9100 POKE 53277,0:GRAPHICS 10:? #61* IHISCHENSTAMD”:GöSUB 9500 
9105 IF SP=E TUEN 9130 
9110 FOR I=SP TO 2 STEP -£ 

9120 POSITION £,2*I+2:GQSÜE 9510:? 86!l;' 1 . “;85S; B "sSlslffXI T 
9130 SSSUß 9510:POSITION 4,3:? #6s854,51 
9150 FOR 1=8 TO 600:NEXT Is RETURW 

9500 Sl=SCHLAGiE):S2=SCHLAS(2):S3=5CHLA6[3)iS4=SCHLAG(V)sRETÜRN 

9510 IF Si>=S2 THEN IF 31>=S3 THEN IF S1>=S4 THEM SI=Sl:G5*=Qi$:St*E}:REniR« 

9520 IF S2)=S3 THEN IF S2>=S4 THEN SI=S2:054=825:32=0: RETURN 
9530 IF S3>=B4 THEN SI>S3:Q5$=a3tfS3>D:RErURK 
9540 SI=S4:Q5$=846:S4=ö:RETURN 
20100 ? :? "BITTE EIN tsENIG GEDULD“ 


20110 ¥P=lÖOG:fiEST®E 20150 

20120 FßR G-ö Tß 405;READ D:P0KE VP+fi ( »sHD(T 8 

20125 ? “ACHTUMS“:? :? 



20130 FOR 6=3» TU i82(RQ» 0SPOKE VW,D:*XT B ■ .. 

20140 CL=VP+44:fiEl=a+l!RE2=REt+17:aE3=RE2+i5iRE4=RE3t23sLH=RE4+I4!LI2=U!+17:LI3=LI2+15:LH=LI3+23 
20145 RE5=U4*14:R£6=RE5+7:RE7=RE6t5iL15=RE7+14slI6=LIS+7iLI7*LI6+5!HEl=U7+H:HE2»HEl+7!HE3»HE2+7i«E4=HE3+7 

20147 HAI-HE4+7:Hft2=Hfl1+9iHA3=KA2+9:HA4=HA3+9!SLl=HA4+9sBL2=SLl+25:SL3=SL2+25 s SL4=SL3+2S:HE5=SL4+25:HE6=HE5+137 
20140 H£7=HE6+7.‘HEB=HE7+7:HA5=HEfl+5:Hft6=HA5+7:HA7=HA6+7iNAB=Hß7+7:SL5=HA8+7iSL6=5L5+25s Sl7=SL6+25!Sl8=SL7+25sRETURN 
20150 DATA 104,162,5.104,149,220,202,16»2M,198,220,198.222,160-0,177,224,170 

ürf li5,223,240?tf ’ 16,10jl45 ’ 222jl ’i'208 > 249,133,160,165,221,240,7> 177,224,145,220,136,208,249,96 

fcwJi/v l/n | H 1 4 [J 

2i000 DATA 16,24,28,0,0,0,0,0,0,60,60,122,122,106,186,56,56 
21010 DATA 14,24,16,23,16,16,16,0,0,0,0,0,0,130,130 
21Ö2Ö DATA 22,16,40,0,8,0,0,0,0,0,0,0,0,0,0,56,56,40,40,40,40,60,60 
21030 DATA 13,0,0,0,0,193,49,13,3,0,0,0,0,0 
21050 DATA 16,24,56,0,0,0,0,0,0,60,60,94,94,93,93,28,28 
21060 DATA 14,24,8,56,8,8,B,0,0,0,0,0,0,65,65 
21070 DATA 22,8,20,0,16,0,0,0,0,0,0,0,0,0,0,28,28,20,20,20,20,60,60 
21080 DATA 13,0,0,0,0,131,140,176,192,0,0,0,0,0 
21090 DATA 6,28,28,62,62,62,62 
21100 DATA 4,8,8,32,32 

21110 DATA 13,2,4,4,4,20,16,16,32,32,32,96,192’192 
21120 DATA 6,56,56,124,124,124,124 
21130 DATA 4,16,16,4,4 

21140 DATA 13,64,32,32,32,40,8,8,4,4,4,6,3,3 
21150 DATA 6,29,29,63,63,60,60 
21160 DATA 6,62,62,120,120,120,120 
2U7Ö DATA 6,124,124,30,30,30,30 
21180 DATA 6,184,184,252,252,60,60 
21190 DATA 8,9,9,0,0,0,0,4,4 
21200 DATA 8,18,18,0,0,0,0,16,16 
2X210 DATA 8,72,72,0,0,0,0,8,8 
21220 DATA 8,144,144,0,0,0,0,32,32 
21230 DATA 24,3,3,2,2,4,4,0,16,16,16,32,32,0,0,0,0,0,0,0,0,0,0,0,0 
2124Ö DATA 24,6,6,2,2,4,4,4,16,16,32,32,32,0,0,64,0,0,0,0,0,0,0,0,0 

21250 DATA 24,96,96,64,64,32,32,32,8,3,4,4,4,0,0,2,0,0,0,0,0.0,0,0,0 
21260 DATA 24,192,192,64,64,32,32,0,8,8,B,4,4,fl,0,0,0,0,0,0,0,0,0,«, 

21270 DATA 6,28,28,62,62,62,62 

' '! ■ i- v ■ ’f'j 

2129Ö DATA 6,28,28,62,62,126,126 ' ‘1' 

21300 DATA 4,56,56,124,124 V v $ 

21310 DATA 6,0,0,8,8,2,2 , 

21320 DATA 6,0,0,17,17,0,0 , ity. i 

21330 DATA 6,0,0,136,136,0,0 $(|)t ^ 

21340 DATA 6,0,0,16,16,64,64 

21350 DATA 24,0,0,0,0,0,0,0,0,0,0,0,64,0,16,16,20,4,4,2,2,3,3,0,0 
21360 DATA 24,0,0,0,0,0,0,0,.0,0,0,0,1,1,225,15,0,0,0,0,0,0,0,0,0 
21370 DATA 24,0,0,0,0,0,0,0,0,0,0,0,128,128,135,240,0,0,0,0,0,0.0,0,0 
21380 DATA 24,0,0,0,0,0,0,0,0,0,0,0,1,0,4,4,20,16,16,32,32,96,96,0,0 
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